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Your Instant Onl 


SOFTWARE DISCOUNTERS 
OF AMERICA 


USA/Canada Orders—1-800-225-7638 


PA Orders—1-800-223-7784 


Customer Service 412-361-5291 


¢ Free shipping on orders 
over $100 in continental USA 


¢ No Surcharge for VISA/MasterCard 


e Your Card is not charged until we ship 


ACCESS DATASOFT Battleship ST ........... $19 Club Backgammon ST....$23 Bop & Wrestle 64K (D)...$19 Virus ST............... $19 
Leader Board Golf & Alternate Reality: California Games ST..... $33 Power Spreadsheet ST....$95 Captain Blood ST ....... $33 REEVE 

Tourn. Disk (D)...... $9.88 THe CHVD) 2 xcesewnas $19 Champ. Wrestling ST..... $14 Vegas Craps ST ......... Sy DSI VES cswveunncwx $33 Diamond OS (D)........ $19 
Leader Board Golf & Tourn. The City SF .okwv canes $26 Dive Bomber ST ........ $33 Vegas Gambler ST....... $23 *Deeper Dungeons (D) ...$16 SIERRA 

DSS SE ania ce ainnines $16 The Dungeon (D)...... $19 Dragonriders of Pern (D) $6.88 MASTERTRONIC CIAL SL hacen anaade 33) Siar’ Cauldron ST ecco. $25 
Tenth Frame ST......... $25 Bismarck ST ........... $26 Final Assault ST......... $33 Action Biker (D)....... $4.88 Gauntlet 64K (D) ....... $23 King’s Quest 
Triple Pack: BH1, BH2, Raid Firezone ST............ Call Impossible Mission 2 ST ..$33 Chopper X ST .......... $14 Harrier Combat Sim. ST . . $33 ie ae | $33 Ea. 

Over Moscow (D) ..... $14 Global Commander ST ...$26 Metrocross ST.......... S16 Nina) sasecuve cane $4.88 Indiana Jones & The Leisure Suit Larry ST..... $25 
ACCOLADE Hunt for Red October (D) Call Summer Games (D)...... $14 Ninja Mission ST........ $14 Temple of Doom ST... .$33  Mixed-Up Mother Goose ST$19 
Bubble Ghast 5T «<««ccss $23 Hunt for Red October ST .$32 Technocop ST.......--- Call The Last V8 (D) ....... $4.88 Infiltrator 64K (D)....... S12 Palice Quest ST ........ $33 
Fight Night (D) ......... $14 Tomahawk 64K (D) ...... $21 Temple Apshai (D) .... . $9.88 Vegas Poker & Into the Eagle's Nest ST ..525 ghace Quest 1 or 2 ST $33 Ea: 
Hardball (D) ........... $14 Video Title Shop 64K (D) .$21 Temple Apshai Trilogy ST .$14 (ACRIRONDY 6 eerie nies $488 Oot Run Sli sascensdaws Call SIMON & SCHUSTER 
Mink Patt ST oc aseieax nce $23 DAVIDSON Winter Games ST ....... $14. MEGAMAX Road Raider ST......... $33 Star Trek ST........ $25 
Test Drive ST cacsanaves $25 Math Blaster (D)........ $32 World Games ST........ Oe laser CST oscxeeesencs $129 Road Runner ST ........ $33 SOFTREK ot tttCt~™S 
ACTIVISION Spell It (D) ............ $32 EQUAL PLUS MICHTRON 720 Mvp venansainnweas Call J ebo ST $33 
Cross Country Word Attack (D) ........ $32 Financial Plus ST....... $129 Airball ST ............. $25 Shadowgate Sr vaeoesans $33 SPRINGBOARD MR Rs fk 9 

Road Race (D)....... $9.88 ELECTRONIC ARTS FORESIGHT Airball Const. Set ST..... $16 ORS EARETAER Ris fn a0 «A se Certificate Maker ST $25 
Ghostbusters (D) ...... $9.88 Software Classic Series: Draphix ST..........-. $119 GFA Artist ST ...2.-..5. $49 Buper Star Hockey BT x 0809 CM. librarv#i ST....... $19 
Music Studio (D)........ $23 Financial Cookbook (D) . $6.88 Draphix Data Plotter ST. ..$29 GFA Basic Book ST...... $25 Uninvited ST..... aa $33 aN baw (D)...... $33 
AMERICAN EDUCATION Lords of Conquest (D) . . $9.88 dt GFA Basic Int. 3.0 ST ... .$65 an Gauntlet! = eens 
Biology (D) ............ $12 Movie Maker (D) ...... $9.88 Dungeonmaster BE amecdis $25 GFA Basic Compiler ST. . .$39 OMNITREND Adi dD & 
Grammar (D)........... 612 Music Const, Set (D) 21. $988 ONS ST ccaicncsccnanes $23 GFA Companion ST...... $33 Breach ST .. Hi 9a wal alee $25 a 
Scteniee tO. «<a aucn are « Call Pinball Const. Set (D) ..$9.88 Sundog ST............. $23 Goldrunner 2 ST........ $25 Breach Scenario Disk ST. .$16 Dragon: Heroes of the 
U.S. Geography (D)...... $12 Seven Cities of Gold (D) $9.88 GAMESTAR ltl, Soccer ST. cswvans $25 Paladin ST........ ee aoes $25 Ph ee a or3sT pe 
US. AiStoty (DD wis vewnurs $12 Super voulder Dash (D).$9.88 Champ. Football ST...... B25 PUREST osecneccs cxrnns $33 Quest Disk for Paladin ST . $16 Am ae ne i 
Vocabulary (D) ......... $12 sae Rings of Zilfin ST ....... $26 
World History (D)....... $12 S_ Roadwar Europa ST ..... $29 
ANTIC =— = S / = ms RA Roadwar 2000 ST ....... $26 
A-Cale Printe ST woxcswas $25 — SS Stellar Crusade ST....... $39 
AaCWArt SP si-ves amadinam xe $19 ——— ; War Game Const. Set (D) . $19 
Base Two eaten eae iota. ate $39 — War Game Const. Set ST .$23 
Cyber Paint 2.0 ST i200 $49 i Warship eee $39 
A reeneige = lalate a Police Quest is Sierra’s trek into the brutal world of vice, bend crt (D) or ST $26 
Spectrum 512 ST........ $44 drugs and homicide. An adult perspective on the life of a Ghia a _ 
ede ST... 1.004, $25 police officer, Police Quest deals not only with ‘Dirty FS. Scenery Disks ....... Call 
Bridge 5.0 (D) es Harry” aspects of the profession, but also with its daily ae eon os 
Bridge 5.0 ST es yews wees s $23 routines. Dark Cast SE senecune. $25 
SHOE RABE sas ates _~ Police Quest is the most authentic graphic adventure game Warlock ST ............ $23 


Linkword French (D) 
Linkword French 
1 or 2 ST 


available for personal computers. Players are required to 
follow police procedures during the course of the action, 


THUNDER MOUNTAIN 
Summer Challenge ST . . $9.88 


g FRG TCO A wie vin atakin es , 
comes ps oat -_ oe just as officers must follow them in the real world. A ToGo BE vacnwnwwss a 
Linkword Spanish (D) . . . .$16 manual explaining police procedures for arrests and other ne By Maes 
ea dl es nen ee situations is included with the package. Police Quest is a TIMEWORKS 

Strip Poker 2ST ........ $25 dramatic tale straight from today’s headlines! Data Manager ST ....... $49 


Female Data Disk 1(D) ... 
Male Data Disk 2(D)..... $14 
Female Data Disk 3(D) ...$14 
Female Data Disk#4 ST. ..$14 
Female Data Disk#5 ST. ..$14 


Desktop Publisher ST ... .$87 
D.P. Clip Art: 
Education Graphics ST .$25 
People, Places & Things ST$25 
Symbols & Slogans ST . .$25 


AUDIO LIGHT Partner | ers $33 
Music Studio ’88 ST..... ¢39 ELECTRONIC ARTS GRIBNIF Karate Kid 2 ST......... $25 Universe 2ST.......... $33 Swiftcalc ST ........... $49 
LUDED Alien Fire ST av ewuxuwe $26 Neo Desk ST .xccacaseae i leatherneck 30 cn. caw $25 ORIGIN Word Writer ST ........ $49 
BATTERIES INCLU peroneal 
Deas Elite ST xs xercvnes $39 Arcticfox ST............ $14. HIGH-TECH EXPRESSIONS Master CAD ST........ $129 Autoduel (D) or ST ...... $25 LNDON WORLD 
BRODERBUND Awesome Arcade Pack ST .$32 Astro-Grover (D)....... £666 SidyZ0 STs caer caeeines $25 Moebius ST............ $25 Art Gallery: Fantasy ST .. .$19 
Karateka (Di... $9.88 Bard's Tale ST... cccaws $32 Award Ware (D)....... SORG SIT AT ow pinovenee wines $25 Quest for Clues (Book) . . . $19 Art Gallery 1 or 2 ST .$19 Ea. 
‘de em ‘oy $9.83 Chessmaster 2000 (D)....$26 Big Bird’s Spc. Delivery (D) $688 Tanglewood ST ......... $25 Ultima 3 (D) or ST ...... $25 Print Master Plus ST..... $25 
vant Sead)... $26 Chessmaster 2000 ST ....$29 Ernie’s Magic Shapes (D) $6.88 Tetra Quest ST ......... $25 Ultima 4 (D) or ST...... $39 P.M. Fonts & Borders ST . . $23 
ie hes cenhic Double Dragon ST ...... Call Print Power (D) ....... $9.88 Time Bandit ST......... $25 PROGRESSIVE VERSASOFT 
“ira ‘9 i ce (D) $16. Ea. Empire ST ..........00. $32 Sesame St. Print Kit (D) .$9.88 Tune Up ST............ $33 Superbase Professional ST$189 db Man V5.0 ST ........ Call 
PS. Companion 64K (D) . $23. Financial Cookbook ST .$9.88 “All Hi-Tech req. 64K! MICROLEAGUE PROSPERO MARK WILLIAMS 
Sky Chase STosswsvevee- $25 Lords of Conquest ST ....$14 ICD Baseball (D)............ $25 First Word Plus ST ...... Call C Source Dedugger ST .. .$44 
Super Bike Challenge ST . .$14 Marble Madness ST ..... $26 PR Connection ......... $59 Baseball 2 ST ........+. $39 QMI Mark Williams C ST..... $119 
CENTRAL POINT Mavis Beacon Teaches Rambo XL............. $29 Box Score Stats (D)...... $16 Peek HE BTeeeresec cen oes $69 WORD PERFECT 
«ist... 2 ST $23 Typing ST tctoreracanese ins $32 US Doubler: General Manager (D) or ST . $19 ST Talk Professional... . . $19 WP Word Processor ST. .$199 
OPy 4 OF oe ee ee ee eee Music Const. Set ST ..... $32 ith S DOS...... $49 1987 Team Data (D) or ST $14 ° ACCESSORIES 
CINEMAWARE with sparta RAINBIRD S 
CINEMAWARE Roadwars ST ........... $21 without Sparta DOS .. .$29 MICROPROSE Aeon 7 
; : Risch LAME Si ivcwccnuvas $19 Bonus 5% SS, DD . .$4.99 BX 
| Defender of the Crown ST $33 Rockford ST............ $21 INTERSECT F15 Strike Eagle (D)...... $23 Cartier Camimand ST $29 Bonus 5% DS, DD . .$5.99 BX 
SO Fe) $33 Scavengers ST.......... Call interlink ST..... 25 15 Strike Eagle ST...... $25 pay 
Sinbad: Th f EET, OE 23 ana0 naam $ | Corruption ST.......... $29 Compuserve Starter Kit . . .$19 
inbad: Throne o Scrabble ST awcacaneanws $26  pevolver ST $33 Gunship ST............ . ~ Disk Drive Cl $6.88 
he Falcon: ST . «sews a $33 | DF  ersxeriin es ccna en RRO ; 7 | ie ee $23 isk Drive Cleaner ... . 96. 
t Scrup GS, secant nee $26 ISD Silent Service (D) a ta tn $23 ° . E 200 X k 
DATA EAST Star Fleet 1 ST $35 — : . Guild of Thieves ST ..... $z9 ‘Pyx J Joystick ....$12 
————— sl oe A Dyna Cadd ST $447. Silent Service ST........ $25 |. Epvx 500 X tick he 
Ikari Warriors ST........ $25 Star Fleet 1(D)......... Coy IER Mae) Bh ev anwenes MINDSCAPE Jinxter ST ...........-. $25 Epyx J Joystick ..... $ 
a re Call Twilights Ransom ST..... $23 Masterplan ST.......... 59 ——e Starglider 2ST ......... $29 Indus GT Drive......... Call 
k ST $25 lf ST | Vip Professional ST...... $95 Alien Syndrome ST...... Call The Pawn ST ocx casucc. $19 Supra Hard Drives ...... Call 
CRC ER EE ae ae aoe nia Zany Goll ST . «6... 006. Ca Balance of Power ST..... $33 . ar S Mod Call 
PI t n ST $25 EPYX LDW Universal Military upra OOGECMS . «ses arms a 
ahaa : : Basic Compiler 2.0 ST $59 Blockbuster ST ......... $25 Simulator ST $33 Wico Bat Handle........ $17 
Speed Buggy ST ........ $25 Art & Film Director ST. ..$49 P : 6 QOD nr simulator st... se... Wico-Ergustick ......... $19 


P.O. BOX 111327 — DEPT. AT — BLAWNOX, PA 15238 


*Please Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items! Personal & Company 
checks, allow 3 weeks clearance. No C.O.D/s! Shipping: Continental U.S.A-Orders under $100 add $3; free shipping on orders over $100. AK, HI, FPO, APO-add $5 on all orders. Canada & Puerto 
Rico-add $7.50 on all orders. Sorry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order including shipping charges. CUSTOMER SERVICE HOURS: Mon-Fri. 
9 AM-5:30 PM Eastern Time. REASONS FOR CALLING CUSTOMER SERVICE—412-361-5291 (1)Status of order or back order (2)if any merchandise purchased within 60 days from S.D.of A. is defective, 


please call for a return authorization number. We will not process a return without a return auth. #! Defective merchandise will be replaced with the same merchandise only. Other returns subject 
to a 20% restocking charge! After 60 days from your purchase date, please refer to the warranty included with the product purchased & return directly to the manufacturer. Customer service will 
not accept collect calls or calls on $.D.of A.’s 800# order lines! Prices & availability are subject to change! New titles are arriving daily! Please call for more information. ORDER LINE HOURS: Mon.-Thurs. 
9:00 AM-7:00 PM Fri. 9:00 AM-5:30 PM Sat. 10:00 AM-4:00 PM Eastern Time. 


"Providing 8 Bit support with one of the Worlds | 


A mer l Can Tec h a a- Vi S 1 O NM largest inventories of Atari replacement parts" 


For Orders Only - 1-800-551-9995 | : * No surcharge for VISA/MasterCard 
CA. Orders / Information 415-352-3787 © Your card is not charged until we ship - 


POWER PACKS 
Exact replacement trans- 
| former for 800/400, 1060 $ | 450 
810, 1200XL, 850, X 

1020 units. Part ce 


XL/XE SUPPLY 


800 4 PIECE BOARD SET 
Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 


¢ SOFTWARE »* 
Pac-Man Cartridge..... $4.00 
Deluxe Invaders Cart... $4.00 
Journey to the Planets.. $4.00 
Mission Asteroid Disk.. $4.00 


1050 MECHANISM 


Fartory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust- 


with all components. ments requir Power Pak for B0OXL GOOXL O00 Crossfire Cartridge .... $5.00 
p $ 2 abs eq | «$47 50 130XE, 65XE & XE Game. 2? 5 Dig Dug Disk....... $9.95 

Pole Position Disk... $9.95 

Q*Bert Cartridge...... $10.00 


Choplifter Cart........ $10.00 
Silicon Warrior Cart.... $12.50 
Learning with Leeper Cart. $12.50 


FLAT SERVICE RATES WORD PROCESSORS KEYBOARDS Springer Cart... $5.00 
To) ENON IVE os eu sewers $75.00 * BANK STREET WRITER New and complete subassembly. ports spectacular Vis , 
810 DISK DRIVE .......... $69.50 - CUT & PASTE Easy internal replacement. Donkey Kong Cart...... $5.00 
850 INTERFACE .......... $39.50 *LETTERWIZARD $ 50 | 130XE/65XE $35.00 Eastem FrontCart...... $10.00 
800 COMPUTER.......... Your choice of these 1 fj Stratos Disk . teens $7.50 

a ae wee three popular disk EACH cea? te i AP a ‘ Murder on the Zinfendorf $10.00 
Flat rates include Parts & Labor, 60 day based word processors PILOT Language Cart. . . $17.50 


warranty. Include $7.00 shipping & insurance ; Cut & Paste W.P. Disk. $17.50 


Master Typing Tutor.. $15.00 
DropZone Disk........ $12.50 
Edt/Asm Cart. w/o man. . . $15.00 
Home filing manager... .. $7.50 
Fredoer CNSR vcuveunews $5.00 
Fort Apcalypse Disk... $5.00 
Spider Man Disk...... $5.00 
The Hulk Adventure Disk $5.00 
Wizard & The Princess . . $5.00 
Ulysses & Golden Fleece $5.00 
Human Torch & The Thing $5.00 
Musical Pilot Ed. Disk... . $5.00 
Chambers/Zorp Disk..... $5.00 
Pathfinder Disk. ........ $5.00 
Match Racer Disk . « $8.00 | 
Encounter/Questar Disk. $5.00 


For all 8 bit Atari. 400...... $412.50 


SERIAL I/O CABLE 


High quality 13 pin data cable used 
to connect 8 bit Atari's to periphials 
including 1050, 810, XF551, 850, 
1027, 1010, 1020, 820, 822, 1030 
and many more. 


XL 40 PIN LSI CHIP SET 


A Complete set of 40 Pin Large 
Scale Integrated Circuits for your 
800XL, 600XL or 1200XL computer. 
Great for quick repairs! Set 
contains one each of the 


isl lowing CPu,GTIA, $ 16% oe 


ANTIC, PIA AND POKEY. 


800 10K "B" O.S. Module 
Older 800 units need the revision "B" 
Operating system to run newer 
software. Type the following peek in 
BASIC to see which revision you 
have. PRINT PEEK(58383). 


oe 
If the result is 56 order now! 


Baja Buggies Disk... .. $5.00 

800/400 MODULES REPAIR MANUALS COMPUTER BOOKS Com‘putation Disk... $5.00 
NEW PARTS COMPLETE WITH IC’S SAMS Service Manuals for the Hackerbook........... $5.00 Debug Childware Disk. . $5.00 
$ 50° 800 Main Board following units contain schematics, Inside Atari Basic....... $5.00 Crystal Raider Disk.... $5.00 


* 800/400 CPU with GTIA 


parts listings, labelled photographs 
* 800 10K "B" O.S. Module 


Atari Basic Ref. manual. $5.00 
showing the location of 


Dispatch Rider Disk.... $5.00 
Sy to 6502 Program. $5.00 


Master Chess Disk .... $5.00 


* 400 Main Board checkpoints and more! A special rogrammers Ref. Guide $14. = 
EACH , 400 Power Supply Board section aves oscilloscope and So Faster & Better... $22.9 sao ae aide mee 
logic probe readings allowing you Assembly Language Guide $19. 3c Y he 
ss itanahelbahaksasdabaianaidhabeimeasaalaieaiaiaada to narrow the malfunction down to XE Users Handbook . $17.95 Last V-8 Disk . .. $5.00 
CX853 16K Ram Module $14.50 a Tiger chip or transistor! XL Users Handbook . $17.95 Fractions Tutorial Disk.. $5.00 
800 Power Supply Board $ 14.50 800XL, 130XE, 400, 1025 Advanced Programming 19.50 Reading Skills Disk... .. $5.00 


cee jo $19. 50 each 
Pa a sth NR ot NR 520ST Service Manual. $37.50 


MISC. HARDWARE 


Write YourOwn Games. $5.00 
Mapping the Atari....... $18.50 


SERIAL I/O CABLE 


Clowns & Balloons Disk $7.50 
Fun in Learning Disk .... $7.50 
Fun in Numbers Disk.. $7.50 


‘ | Honey Craze Math (D 7.50 
CPU. ...... CO14806 13 Pin Serial /O Cable .... $5.95 CMAN WEP <3 The Factory Disk i Rs 00 
* POKEY. ....CO12294 1050 Track O Sensor... $8.50 MAC-65 mt peranio oss GorfCar B0000 S400 
UP wre msttcs d CO14795 2793 1050 Controller IC . . $19.50 6502 Machine language Macro- Atlantis Cat $4.00 
$ 50 nes CO14805 Paddle Controllers (Pair) .. $6.50 Assembler. First class tool for Mnarnibane Aduernine U0) $5.00 
*ANTIC..... CO12296 400 3 Piece Board Set... $19.50 serious programmers... $59.95 ACTIONOSS ( Neen ee 
J ¢ 0 CO10745 Fastchip for 800/400... $15.50 ATARI 850 INTERFACE BASICXEOSS. "$5995 
eee CO10750 600XL 64K Upgrade Kit $29.95 Bare PC Board with parts list and MAC-650S&__ $59 95 

EACH POPU ie csnes CO14377 Rambo XLw/o Ram |C’s $39.95 MMM crystal................ 750 +. se 


BASIC XLO.S.S.... $49.50 


tal 
Board & ail plug in IC's... $39.50 SpartaDOS Const. Set $39.50 | 


eseeen’s Supra 2400 Baud Modem.. $157.95 
Meme ACE Joystick........ $7.95 


cueena — PR: CONNECTION Mercenary Disk..... $12.50 

ere | B20 nf BR Pieraene ae Seria/ Parallel Interface for corer The Goonies Disk.... $12.50 

wate Printer Interface...... $39.95 modems and printers... . . .665.00 cakes a ‘aaa Pe 

wigan ts . Bin Sf iene ies wes c BASIC CARTRI DGE eee: Disk . me 

ae 3 ST 6’ Drive Cable . $14.00 smu "S45 00 Never Ending Story (D) $12.50 

Fh ih ay i ge nn in pos 810 Door Latch Assy. . . $15.00 teens Gunslinaer Disk. XL/XE 9.95 
ger Dis $ 

| ee ee 1027 Transformer... CALL EPROM CARTRIDGES Letter WizardWP.(D) $17.50 

Ceoromneecdl ene tae Ser Cae” Mae 16K Eprom Board with case Basic Compiler for 800 $29.95 

C06 1618 $20.00] CO24947 $15.00 ST Dive comector plug... $6. eee 27128 Telelink 1 Cartridge . ... $10.00 


50 
ST to 5/14" Drive Cable $23.95 


CALL TOLL FREE Mm AMERICAN TECHNA-VISION 
1-800-551-9995 [eveimaeit tater etesestetras 


Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.0.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $20.00. 
IN CAL! F. OR OUTSI Dp) = U. Ss No personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders 


under $150.00. Add $2.25 for C.0.D. orders. In Canada total $6.00 for shipping and 


| handling. Foreign shipping extra. Calif. residents include 7% sales tax. All items | 
CALL 415- 350- 3/87 guaranteed 30 days from date of delivery. All sales final. | 


Prices subject to change without notice. Send SASE for free price list. Atari is a reg. trademark of Atari Carp. 


J COMPUTER SOFTWARE SERVICES 
PO, BOX 17660, ROCHESTER, NY 14617 
ATAR |’ PHONE (716) 467-9326 


JUST RELEASED! 


“SUPER ARCHIVER II’’! 
(for ATARI 1050 drives) 


NOW! COPYS all ENHANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (including PHAN- 
TOM SECTORS!). Completely automatic; compatible with the BIT-WRITERI; the 
ULTIMATE BACKUP/PROGRAMMING device! Only $99.95 plus $4 S/HI/I 
NOTICE! If you already own a SUPER ARCHIVER!, you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/I (disk only - no additional hardware 
required). 


NOW 
“BEST BUY” 
RATED! 


$99.95 


THE 


“SUPER ARCHIVER’! 
(for ATARI 1050 drives) 


The new SUPER ARCHIVER, obsoletes all copying devices currently available 
for the ATARI 4050! It eliminates the need for Patches, PDB files, Computer 
Hardware, etc. Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 1050! Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features are: 


e TRUE DOUBLE DENSITY 
e ULTRA-SPEED read/write 
e FULLY AUTOMATIC COPYING e BUILT-IN EDITOR - reads, writes, 

e SUPPORTS EXTRA MEMORY displays up to 35 sectors/track 

e SCREEN DUMP to printer short 

¢ TOGGLE HEX/DEC DISPLAY e BUILT-IN CUSTOM FORMATTER 

e SECTOR orTRACK TRACING up to 40 sectors/track 

¢ AUTOMATIC DIAGNOSTICS e BUILT-IN DISASSEMBLER 

¢ DISPLAYS HIDDEN PROTECTION e BUILT-IN MAPPER - up to 42 sectors/ 


$69.95 $69.95 


e ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 


e ADJUSTABLE/CUSTOM SKEWING track 

e AUTOMATIC SPEED e DISPLAYS/COPIES Double Density 
COMPENSATION HEADERS 

e AUTOMATIC/PROGRAMMABLE e AUTOMATIC FORMAT LENGTH 
PHANTOM SECTOR MAKER CORRECTION 


¢ SIMPLE INSTALLATION 


The SUPER ARCHIVER is so POWERFUL that only programs we know that can't 
be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 FULL 
sectors/track). If you want it ALL... buy the “‘BIT-WRITER’’! also... then you'll 
be able to copy even these programs! Only $69.95 plus $4 S/H/I. 


$79.95 ““BIT-WRITER’’! $79.95 


The Super Archiver “BIFWRITER”! is capable of du even the “uncopyable” 
EA and SYN series which employ 34 FULL sectors/tracks. ‘‘BIT-WRITER’’! is 
capable of reproducing these and FUTURE protection schemes of non 
physicially damaged disks. PLUG-IN circuit boards and 4 simple solder 
connections. The “SUPER ARCHIVER with ‘“‘BIT-WRITER’’! is the ultimate 
PROGRAMMING/COPYING device for Atari 1050’s. EXACT DUPLICATES of 
originals are made! Copies run on ANY drive. Must be used with Super 
Archiver. Only $79.95 plus $4 S/HII. 


$69.95 “ULTRA SPEED PLUS” $69.95 


Imagine a universal XL/XE Operating System so easy to use that anyone 
can operate it instantly, yet so versatile and powerful that every Hacker, 
Programmer and Ramdisk owner will wonder how they ever got along 
without it! Ultra Speed Plus puts unbelievable speed and convenience at 
your fingertips. Use ANY DOS to place an ULTRA SPEED format on your disks, 
boot any drive (1-9) upon power-up, format your RAMDISK in Double Density, 
activate a built-in 400/800 OS for software compatibility, plus dozens of other 
features too numerous to mention! Below are just a FEW features you'll find 
in the amazing OS: 


¢ ULTRA Speed SI0 for most e Bullt In RAMDISK configura- ¢ Ram resident disk loader 


modified drives tion editor (4-9) pein (MACH 40 menu) 
¢ ULTRA Speed is ae ert ¢ RAMDISK exactly duplicates * DOUBLE DENSITY RAMDISK 
¢ Boot directly from RAMDISK floppy drive so sector copy- capable 


¢ Special timer circuits not re- ing and sector editing are ¢ Entire MEMORY test that pin- 
quired for 1or2 Meg upgrades now possible ints defective RAM chip 
e Background colors adjustble © Built in MINI Sector Copier « Boot any drive (1-9) upon 
e Reverse use of OPTION key ° Toggle SCREEN OFF for up to power-up or cold-start 
e Cold-start without memory loss 40% increase of processing * Supports peney >, aia 
e Built-in floppy/disk configuration speed. up to TWO MEGABYTES 
editor 1.9) * Toggle internal BASIC e THREE Operating Systems in 
one (XL/XE, 400/800, ULTRA 
SPEED PLUS) 


$29.95 “XF501 ENHANCER!” $29.95 


The XF55/ Atari drive is a fine product with one major flaw...it writes to side 
TWO of your flopping disks BACKWARDS. This causes read/write 
incompatibility problems with all other single sides drives made for Atari 
such as Indus. Trak, Rana, Percom, Astra, Atari 1050, Atari 810, etc. Add the 
XF554 ENHANCER to the new XF554 drive and your problems are over! This 
device will restore 100% compatibility while retaining original design 
qualities of Atari's super new drive. The XF554 ENHANCER is a MUST for all 
XF554 Owners. Installation is simple. Only $29.95 plus $4 S/H/I. 


DEALER/DISTRIBUTOR/USER GROUP Discount availalbe call for info. 
PHONE Orders - MASTER CARD, VISA MAIL - Money Orders, Checks 
*SHIPPING! Add $4 for Shipping/Handling/Insurance within the U.S.A. ATARI e 
UPS BLUE LABLE (2nd DAY AIR) available for $3 extra per shipment. 
CALL TODAY! (716) 467-9326 COMPUTER SOFTWARE SERVICES 
9 am - 5 pm (EST) WEEKDAYS PO. Box 17660 

Rochester, N.Y. 14617 


$39.95 RICHMAN’S $39.95 
80 Column Word-Processor! 


Easy to use, very powerful, and NO ADDITIONAL HARDWARE required! 
Works with TV or Monitor! This “DISK ONLY” 80 Column Word-Processor is 
simple to use while offering numerous features such as: 


Completely Menu driven e Insert and Delete 


@ Self contained DOS @ Search Mode 

e Complete Text formatting e View only mode 

® Built in Printer Drivers e Memory Statistics 

@ Page numbering e Alternate Output 

@ Justify and Endifill e Change screen Colors, 
@ High Speed Cursor borders, luminesce 

e@ Dictionary @e Mouse compatible 


@ 80 COLUMNS ON THE SCREEN! 

One expert has compared 40 domestic and foreign word-processors 
and concluded that the RICHMANS 80 Column Word-Processor is the 
best! Only $39.95 plus $4 S/H/I. (64K required). 


$39.95 THE “*QUINTOPUS!”’ $39.95 


The ‘“QUINTOPUS!”’ is an inexpensive device that provides a tremendous 
amount of convenience while eliminating the problems associated with 
the endless “daisy-chaining” of peripherals (eg: drives, interfaces, printers, 
modems, cassettes, etc.). The ‘‘QUINTOPUS!”’ is an I/O port expander that 
converts a single I/O output/input into five additional outputs/inputs. Instead 
of daisy-chaining all of your peripherals (which often times results in passing 
a signal through 30 feet or more of cable!), the ‘“QUINTOPUS!”’ allows each 
device to be connected directly to the computers through only three or 
four feet of cable. This is particularly useful when attempting to use 
ULTRASPEED or WARPSPEED data transfer rates. The ‘“‘“QUINTOPUS!”’ also 
provides the “extra” I/O ports often needed to connect devices not having 
daisy-chaining capabilities. Cable resistance and compacitance are 
greatly reduced thereby significantly improving the opportunity of 
accurate data transfers! Only $39.95 plus $4 S/H/I. 


THE ““QUINTOPUS!”’ 
(with SWITCHABLE PORTS!) 


This Deluxe version of the ““QUINTOPUS!” has all of the above features with 
the additional benefits of two SWITCHABLE PORTS! This means you can 
connect two computers to one printer or two printers to one computer; you 
can switch in a computer/printer combination and while you’re printing 
out a long document, switch in a second computer to access a modem, 
disk drive, cassette deck, etc! Switch multiple combinations of peripherals 
or computers without the hassel or re-arranging I/O cables .... simply flip 
a switch! Only $59.95 plus $4 S/HII. 


$59.95 $59.95 


LIMITED SPECIALS! 


Previously we listed these products under our FIRESALE ad but many of our 
customers feared that the software items might be smoke or water 
damaged. They’re NOT! All of the items listed below are BRAND NEW...only 
their literature or packing may have slight cosmetic imperfections. All items 
are fully warrantied! Quantities are limited! No rainchecks! 


LIMITED 
NORMALLY _ SPECIALS _ 
4. PILL (without case) $ 70 $419 
2. SUPER PILL (without case) 80 22 
3. XL FIX ROM 70 19 
4, ULTRA MENU/DOS 30 49 
5. DISKCRACKER (Newest version) 50 49 
6. ELECTRONIC PHANTOM SECTOR MAKER DELUXE 60 35 
7. RICHMANS 80 COLUMN WORD PROCESSOR 60 29 
8. MIRACLE (Disk only Version of Impossible) 70 19 
9. IMPOSSIBLE for 800 or 800XL 150 69 
40. XL MATE 30 15 
41. COMPACTOR 30 15 
42. KLONE Il (Generic HAPPY backup) 100 75 
43. SILENCER 30 19 
44, BLACK PATCH (MASTER) 50 25 
45. BLACK PATCH DATA DISKS 1 & 2 20 10 


*Order 5 items or more and we will pay the freight! 


These SPECIALS are for C.S.S. customers only - NO DEALER DISCOUNTS - NO RAINCHECKS 
- LIMITED QUANTITIES 
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When you want to talk Atari 


XL/XKE HARDWARE 


CMO SPECIAL 
Atari 800XL 


INTERFACES 


ICD 
P:R Connection ................ 


1151 (1200 XL) 
Xetec 

Graphix 4Intenmace . oi eek as hw en 
Atari 

O50 NtGhaCe «2k nee eceeweeeees 


XL/KE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) .19.99 
Atari 80 Column Card........... 

ICD 

BGs Exoress (Si). cance casosnewe 
Sparta DOS Construction Set..... 

US Doubler/Sparta DOS......... 

Real Time Clock............... 


MODEMS 


Atari 
SX212 300/1200 (ST) 


- ce tw mew Em Re ne wD KR we Me ee Se 


p 
2400 Baud XL/XE or ST........ 
2400 Baud (no software)........ 


MONITORS 
Magnavox 
CM 8505 14’’ Composite/RGB/TTL .. . 189.00 


ST HARDWARE 


Call For Current Information 
On The Entire ST Line! 


ATARI SM1224 
RGB/Color Monitor $329 


520ST FM RGB/Color System. . .829.00 
SM124 Monochrome Monitor... .179.00 


rnd 


Atari 800XL & XF551 Drive 


w/5 Undocumented ROMS Asteroids, Defender, 


Missile Command, QIX, Star Raiders $959 
DRIVES 
Atari 


BS) wr DOD, . ccayscnnnwens 
Aros! DFVG CALIZE) 24 csnus wes 
SHD204 20 Meg Hard Drive....... 
.B. 

oa 40 TISCK (ST). cr vend x dees 
Sa GO PaOK (37) .cas kee sees 
1.C.D. 

PASS! 20 MEQ. .senuees saws xs 
PRO OO MG. « saevay heee ear 
FAe*ST Dual Hard Drives......... 
Indus 

Gls 100 3%” DS/iDD {ST}... ... 

GT 1000 614" DS/DD (ST), e«« « s 

GT Drive (XL/XE)... 
Supra 

FD-10 10MB Removable Floppy .859.00 
30 Meg Hard Drive (ST)........ 


CALL FOR DISKETTE SPECIAL 


PRINTERS 


See aire 


Atari 1020 Printer 
40 Col. Color 


Atari 

1027 Letter Quality XL/XE....... 
ROMS) LG (AIRE once voces 
XM-M801 XL/XE Dot Matrix ... 


Brother 

M-1109 100 cps Dot Matrix..... 
M-1509 180 cps Dot Matrix..... 
HR-20 22 cps Daisywheel...... 
Citizen 

120D 120 cps Dot Matrix 
180D 180 cps Dot Matrix 
Premier-35 35 cps Daisywheel . . 
Epson 

LX-800 150 cps, 80 col........ 
FA-850 264 cps, 80 col.......:..+. 
LQ-500 180 cps, 24-wire......... 
LO-B50 330 ¢ps, BO Gol... wu. cxeues 
NEC 

P2200 pinwriter 24-wire........ 
Okidata 

Okimate 20 color printer ....... 
ML-182 +120 cps, 80 column .. 
ML-390 +270 cps, 24-Wire..... 
Panasonic 

KX-P1080i 144 cps, 80 col ..... 
KX-P10911 194 cps, 80 col ...... 
Star Micronics 

NX-1000 140 cps, 80 column ... 
Toshiba 

P321-SL 216 cps, 24-wire...... 


ACCESSORIES 


Allsop Disk Holders 

Digk-Fie GO-GiA 2.k sc és biwe ees 9.99 
Disk File SO-SV2" . bawevndunws pas 9.99 
Curtis 

aii) i —— a nei ee 

ae ole wed on Bape ves beee 
Universal Printer Stand......... 
TOE pasa sod eee oe 


Your Source for Hardware, Software & Peripherals 


.saeeeeYOU Want to talk to us. 


SPECIALS XL/XE 


#AAB822P 822 Printer Paper $2.49 
#AA14746 T.V. Switch Box........ 2.49 
#AA4010 Tic-Tac-Toe............ 4.99 
#AA4011 Star Raiders............ 3.99 
#AA4012 Missile Command....... 3.99 
#AA4013 Asteroids.............. 4.99 
#AA4022 Pac Man............... 4.99 
#AA4025 Defender.............. 4.99 
VARAC CA ios «cnben esse vavdes 4.99 
#AA4102 Kingdom (Cass.)........ 1.99 
#AA4112 States & Capitals (Cass.).1.99 
#AA4121 Energy Czar............ 1.99 
#AA4123 Scram (Cass.).......... 1.99 
#AA4126 Speed Reading......... 2.99 
#AA4129 Juggle’s Rainbow....... 1.99 
#AA415 File Manager............ 8.99 
#AA4204 1020 Color Pens........ 1.99 
#AA5047 Timewise (D)........... 3.99 
#AA5049 Visicalc (D) 

#AA5050 Mickey Outdoors........ 5.99 
#AA5081 Music Painter (D)........ 9.99 
#AA6006 Counseling Procedure... .1.99 
#AA7102 Arcade Champ (No J. Stk)6.99 
#AA8030 E.T. Phone Home....... 3.99 
#AA8048 Millipede............... 4.99 


ST’ SOFTWARE 


Access 

Leaderboard Golf 

Accolade 

Hardball 

Activision 

Hacker II/Music Studio (ea.) 


Batteries Included 
Degas Elite 


Starfleet | 


CMO, 101 Reighard Ave., Dept. B6, Williamsport, PA 17701 


OVER 350,000 SATISFIED CUSTOMERS ¢ ALL MAJOR CREDIT CARDS ACCEPTED « CREDIT CARDS ARE NOT CHARGED UNTIL WE SHIP 


CLOSEOUTS XL/XE 


ROM CARTS (XL/XE) 
$299 ea or 5 for $1399 


Loose/Undocumented 
Choose from: Space Invaders, Star 
Raiders, Missile Command, Asteroids, 
Pac Man, Galaxian, Defender, QIX, 
Super Breakout, E.T., Eastern Front, 
Robotron. 


Anti-Sub (Disk). ..«.<02<<s00uees 2.99 
sOUMNGY TO PIANGL. .c 6s xxcawweee 2.99 
Atari Program Exchange 
10 Different Cassettes For 


ST SOFTWARE 


Data East 

Speed Buggy 

Epyx 

Auto Duel 

Dive Bomber 

Firebird 

Jewels of Darkness 
The Sentry/Tracker (ea.) 
FTL 

Dungeonmaster 
Metacomco 

ISO Pascal 

Michtron 

Leatherneck 

Microprose 

Gunship 

F-15 Strike/Silent Service (ea.)... 
Miles Software 


Mindscape 
High Roller 
Mark Williams 
C 


Paradox 
Wanderer (3D) 


In U.S.A. 


SPECIALS XL/XE 


Access 
Leaderboard Golf 
Accolade 

Fight Night 

Atari 

Atariwriter Plus 
Broderbund 
Printshop 

Datasoft 

Alternate Reality (City) 
221 Baker St 
Electronic Arts 
Pinball Construction 
Firebird 

Silicon Dreams 
Jewels of Darkness 
Microprose 

Top Gunner 

F-15 Eagle Strike 
Origin Systems 


Strategic Simulations 
Gemstone Warrior 
Sublogic 

Flight Simulator 


ST SOFTWARE 


Progressive Computer 
Sich e@og  - .: 109.00 
Psygnosis 

Barbarian 

Soft Logik Corp. 
Publishing Partner 
Strategic Simulation 
Questron Il 
Timeworks 
Swiftcalc/Wordwriter 
Desktop Publisher 
Unison World 
Printmaster Plus 


$159 


Word Perfect 


1-800-233-8950 


In Canada call: 1-800-233-8949 All Other Areas call: 717-327-9575 Fax: 717-327-1217 ma vic 
Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 viene omeuree 


ARKETING COUNCIL 


of the Orect Merteteng Aseccetes bs 


POLICY: Add 3% (minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to 
clear. For faster delivery, use your credit card or send cashier’s check or bank money order. Credit cards are not charged until we ship. Pennsylvania and 
Maryland residents add appropriate sales tax. All prices are U.S.A. prices and are subject to change, and all items are subject to availability. Defective software 
will be replaced with the same item only. Hardware will be replaced or repaired at our discretion within the terms and limits of the manufacturer's warranty. We 
cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. We are not responsible for typographic or photographic 


errors. 
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YOU ASKED US TO BRING BACK THE SAVINGS— 


The Newsroom is now 
sale priced for your 8-bit Atari 


The Newsroom includes everything 
you need to create great looking 
newsletters: Choose from over 600 
pieces of clip art ¢ Modify clip art or 
create your own with powerful drawing 
tools ¢ Use the built-in word processor 
to write in any of five fonts « Change 
your page easily—text automatically 
wraps around pictures to simplify 
layout and editing * Add Clip Art 
Collection™ Volumes for truly 
professional results! 


Over 350,000 families, schools and 
businesses are using The Newsroom 
to tell their story. Now it’s your turn. 


tive Paths Sores 
ay 
id frat 


SAVE up to $70 (over 50%!) 
on The Newsroom and Clip 
Art Collection” Volumes. 


© Clip Art Collection Volume 1: 

Over 600 pieces of all occasion art. 
© Clip Art Collection Volume 2: 

Over 800 pieces of business art. 

© Clip Art Collection Volume 3: 


Over 600 pieces of sports and 
recreation art. 


Mix text and graphics in two-column 
layouts with dramatic full-width banners! 


Product(s) Suggested Retail Special Offer You Save 
The Newsroom 49.9 $39.95 $10.00 
The Newsroom + any 1 Clip Art Vol. 0 $49.90 30.00 
The Newsroom + any 2 Clip Art Vols. 85 $59.85 50.00 
The Newsroom + all 3 Clip Art Vols. 39. $69.80 70.00 


Each Clip Art Collection Volume has a suggested retail value of $29.95. The Newsroom and Clip Art Collections are available for 
these Atari 8-bit computers: 800XL,™ 130XE,™ 65XE.™ Atari 1050™ or compatible disk drive required. 


To order by phone, call toll-free: 


1-800-445-4780, ext. 3021 


Phone orders accepted 8:30 a.m-4:00 p.m. Monday-Friday Central time (VISA/Mastercard only). 
Ask for “The Newsroom Atari Offer.’ 30-day money-back guarantee! 
This is an exclusive offer directly from Springboard. This offer ends February 28, 1989. 


TO ORDER BY MAIL —_ Name 

Complete the order form and mail it with payment to: 

2 ol Software Address (No P.O. Box) 

me oi 
Phone ( ) 


FORM NO. 3021 = Offer expires February 28, 1989 


Check the volume(s) you want 


Check the Atari 8-Bit Clip Art Vol. 1 Clip Art Vol. 2 Clip Art Vol. 3 You pay Write in 
offer you want C1011 C1012 C1013 your price 


0 The Newsroom only N1010 


0) The Newsroom + 2 Clip Arts 
© The Newsroom + 3 Clip Arts 


Please check one: SUBTOTAL 
CD) Check/Money Order (Payable to Springboard) 0) VISA 0) MasterCard CJ School P.O. Attached MN residents add 6% sales tax 


Shipping fee per order $5.00 or $15.00° 
Grand total in U.S. Dollars Ps 


OTheNewsroom+1Cipat | oP se 


Card No. Exp. Date 


Signature (required) 
“U.S. & Canada add $5.00 for shipping & —* others add $15.00 ; 
IMPORTANT INFORMATION: Copy this form for additional orders. Springboard accepts orders by phone or mail in U.S. dollars only. Orders from outside the U.S. = with VISA, 


ri 
MasterCard or international erp feohob only. Sorry, no cash, COD. or P.O. boxes accepted. blease allow 2-3 weeks for delivery, slightly longer for orders outside 
Call 1-800-445-4780 or (612) 944-3915 with questions, 


Springboard. The Newsroom and Clip Art Collection are trademarks or registered trademarks of Springboard Software, Inc. Atari 800XL, 1050, 65XE and 130XE are trademarks or 
registered trademarks of Atari Corporation. The Newsroom Atari does not include The Wire Service feature. 
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EDITORIAL 


YOUR 100% 8-BIT MAGAZINE 


Antic isn’t just talking about keeping the Atari 8-bit 
market alive, we're doing something new about it virtually 
every month. 

Last month’s Antic announced that our 8-bit Arcade 
Catalog was back, bigger than ever and even featuring 
reissues of top commercial software which had gone out 
of print. In this issue we proudly announce the arrival of 
the 8,500-page Antic Index on CompuServe’s ANTIC 
ONLINE. The fast, friendly Antic Index database will enable you to find out 
which 1982-88 issue contained just about any Antic article, program, or review. 

For years, Antic readers have been asking for a complete index to this 
magazine's back issues. Now that long-awaited reference tool is here. And it’s 
even more than readers would have expected, because it draws on the full power 
of CompuServe’s mainframe computers. The Antic Index is the result of months 
of work by Charles Jackson, our Technical and Online Editor, whose article 
this month explains how easily you can find exactly what you’re looking for 
in the Antic back issues. 

Not only does the Antic Index provide fast references to the correct back 
issue—many of the complete stories are available online for downloading. 

Antic still believes in the future of the Atari 8-bit market and we're proving 
it by our actions—even at a time when so many others have fallen by the 
wayside. Starting with this issue, Antic has returned to being an all Atari 8-bit 
magazine and disk for the first time since May 1985. 

In response to overwhelming reader demand, all ST coverage is being 
switched out of Antic into our ST-only sister publication START. (ST-owning 
Antic subscribers can transfer their subscriptions to START.) Undoubtedly you 
have noticed that the Antic Magazine you now hold is thinner than the previ- 
ous four issues, and is staple-bound like the three issues from last summer. But 
this should cause only slight change for 8-bit owners, because the pages that 
were cut are the ST Resource section. 

Why did we start reducing the number of pages in Antic this month? Antic 
Publishing is an independent business and this magazine must make a fair profit 
in order to keep going—we certainly don’t get any subsidy money from Atari. 
Antic Magazine can still remain profitable at this smaller size, covering 8-bit 
Atari computers exclusively, with present amounts of readers and advertisers. 

The catch is that the number of 8-bit advertisers has been dropping all along, 
so Antic must look for a higher level of reader support. In order for Antic 
to keep on finding new ways to do the job for your 8-bit Atari, you need to 
subscribe for 12 issues of Antic Magazine plus disk for only $59.95. (Or upgrade 
your magazine-only subscription to include the disk.) 

Packed with 172K of high-quality Atari programs and graphics, each double- 
sided Antic Disk is an unequaled 8-bit software value. This month's disk features 
every type-in program from the issue—plus Mandala Movies, a hypnotically 
colorful kaleidoscope construction set, and a series of highly detailed pictures 
created with this issue’s Hard-Wired Ray Tracing program. 


Nat Friedland 


Nat Friedland 
Editor, Antic 


FEBRUARY 1989 


1/0 BOARD 


ADDING SOME ZIP 


I'd like to speed up my Atari 130XE. I no- 
tice that Apple II owners can upgrade their 
6502 CPUs to 65C02, or a new product 
called the Zip Chip. I’ve heard that the 
65802 is also pin-compatible. Can any of 
these microprocessors be used in my 
130XE, and is it just a matter of swapping 
one chip? Will I see any performance im- 
provement in such things as integer or 
floating-point calculations, memory read/ 
writes or disk I/O? What kinds of prob- 
lems might arise other than games running 
too fast? 

James Johnson 

Cambridge, MN 


We asked Contributing Editor Matt Rat- 
cliff about thts and got the following re- 
ply: “GEnte has an extremely long thread 
on the subject of faster 6502s—even 
though it s been established that this is vir- 
tually impossible to do on an 8-bit Atari. 
And even if you got all the Atari's chips 
and operating system to handle a differ- 
ent microprocessor, what good ts it? Only 
the software that you write yourself will 
work with it.”—ANTIC ED 


NX-1000 


After reading the review of Star Micronics’ 
NX-1000 printer (Antic, May 1988), I had 
reservations about such an inexpensive 
printer living up to its advertisements, but 
I bought one anyway. 

I can only say that this printer has to 
be one of the best bargains around. I’ve 
teamed it up with a Supra 1150 interface 
and the combination works great. The 
graphics capabilities of this machine must 
be seen to be believed. 

I've used it with Print Shop, Newsroom, 
Award Ware and PaperClip with no prob- 
lem at all. It uses the same codes as the 
Epson LX80—and does just as well, if not 
better. For the price, this has to be one of 
the best printers around for 8-bit users. 

Thorvald Ripley 
Redondo Beach, CA 


I/O BOARD 


REAL REASON 


I recently purchased an Atari 65XE with 
an XF551 disk drive and have noticed that 
not a lot of new third-party software is 
available for it. So I started phoning soft- 
ware companies to see if they would start 
making Atari 8-bit software as they do for 
the Commodore 64. They all told me ba- 
sically the same thing—If they could get 
big orders, they would produce it. By “‘big 
orders” they meant national chains, such 
as Toys R Us and Child World/Children’s 
Palace. Activision was the only company 
that said it was afraid of piracy. 

So I went to the aforementioned stores 
in my area and spoke to the store 
managers, some of whom phoned their 
district managers, who said they'd order 
Atari 8-bit software if they got decent 
responses to the requests for it. So I urge 
all Atari 8-bitters to go to local stores as 
I did. Maybe we can all still benefit from 
new software for the 8-bit. 

Robert Urbaniak 
Williamsville, NY 


Way to go! Antic agrees that this kind of 
grass-roots effort ts vital to the continued 
flow of third-party products for the 8-bit. 
That's what the successful Antic write- 
in campaigns have been all about.— 
ANTIC ED 


NX-CEPTION 


I must take exception to your rather harsh 
review of the Star NX-1000 printer in the 
October 1988 Antic. I have used my NX- 
1000 Rainbow (the color version) for two 
months now and have nothing but praise 
for its quality and many special features. 

I do agree that the rear cover can be dif- 
ficult to remove, but I put a little silicon 
on the two tabs that hold it in place, and 
that has helped a lot. As for the front cover, 
how can you “expect” it to be one way 
or the other? Each of my previous three 
printers was unique in this respect. 

I find the loading of fanfold paper to 
be no more difficult than on my previous 
printers, and I have yet to experience the 
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paper popping out of the sprockets. (Did 
you raise the clamp levers to lock the 
sprocket units?) What’s more, there is 
much less need to bother with loading and 
unloading fanfold paper. With the paper 
parking feature, you can automatically 
draw the fanfold paper out of the way, in- 
sert and type on single-sheet letterhead or 
envelopes and then reposition your fan- 
fold paper, all without removing the rear 
cover or removing the paper from the 
sprockets. 

I never waste a sheet of paper between 
printouts. If you start printing at the very 
top of the form, you do have to stand by 
to make sure that the first sheet gets tucked 
behind the paper bail, but this isn’t dif- 
ficult. 

The quality of the NLQ printing is so 
good that I really don’t mind waiting a few 
extra seconds. I especially appreciate that 
it’s available with any print pitch. Had I 
read your review before purchasing my 
new Star, I probably would not have cho- 
sen it. So I’m glad my Antic arrived after 
the fact. 

Carolyn Hoglin 
Orlando, FL 


Reviewer Gregg Pearlman replies: “I 
understand your point about the front 
cover, but I disagree. As it happens, the 
half-dozen or so printers I’ve reviewed for 
Antic all had front covers that went on 
and off the same way—except the NX- 
1000. So I guess should have said that the 
cover goes on and off opposite from what 
I expected.’ On the other hand, the Antic 
employee currently using the NX-1000 has 
removed the cover altogether—evidently 
he doesnt want to deal with the hassle 
either. 

‘Antic’s NX unit showed the problems 
described in my review while I was us- 
ing the printer. As for wasting a sheet of 
paper, why should you have to make sure 
the next page is tucked behind the bail? 
On our previous Star printers (NL-10, NR- 
10, etc.) you dont have to. Essentially, 
what my review said was not that the NX- 
1000 was a bad printer, but that it wasn't 
the right printer for a user like me.— 
ANTIC ED 


PAPERCLIP QUERY 


Has anyone ever figured out a way to use 
PaperClip with a FingerPrint chip printer? 
I have an Epson RX-80 with a LetterWriter 
chip system in it and I have not been able 
to access the LetterWriter features from 
PaperClip. Electronic Arts was unable to 
help me, so I’m turning to you. 

Glen Bergstedt 

San Diego, CA 


Sorry, we never tested that hardware, so 
well have to pass your question to the 
readers. Anybody got ideas?—ANTIC ED 


Antic welcomes your feedback, but 
we regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much reader correspon- 
dence as time permits, our highest pri- 


ority must be to publish I/O answers 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94107. 
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POWER DRESSING seu 
(t-shirts) 

Computer Lust 

PO. Box 61734 

Honolulu, HI 96839 

(808) 988-5979 

$15 


Power Dressing is Computer Lust’s 
new line of a dozen zany, witty and 
arty silkscreened Tshirts which target 
the computer industry and users. The 
humorous designs include such pun- 
filled titles as “Good to the last Byte,’ 


“BASIC Training,’ “Getting Loaded”’ 
and “RAM-bo”. Write for a descriptive 
brochure. For your company or user 
group’s promotional giveaways, Com- 
puter Lust will also personalize shirts 
with a company name or logo, or even 
create a customized design. 


AUTOPREP =a 
(disk formatter) 

Helpways 

P.O. Box H 

Rochester, NY 14623 

(716) 334-3928 

$17.45, 16K disk 


AutoPrep automatically formats any 
number of blank disks in single or 
dual density and writes your choice of 
DOS and AUTORUN files to them. The 
entire effortless process is much sim- 
pler than doing it from Atari DOS. 
Price above includes $2.50 shipping. 
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NEW PRODUCTS 


TURBOWORD, 

TURBOBASE 80 
(word processor, database) 

MicroMiser Software, Inc. 

1635-A Holden Avenue 

Orlando, FL 32809 

(305) 857-6014 

48K disk 


Turboword ($49) is a word processor 
for the Atari XEP80’s 80-column 
screen. DOS 2.5 and SpartaDOS com- 
patible, its features include automatic 
formatting, mail merge, macros, spell- 
ing checker, auto RAMdisk load and 
formfeed for laser printers. 

Also utilizing the XEP80, Turbo- 
base 80 ($179) works like the original 
database, but with the 80 column 
screen making output formats more 
readable and easier to create. Turbo- 
base 80 interfaces with Turboword. 
Owners of Turbobase can upgrade for 
$39. 


DIAMOND Fox 
(Operating system) 

USA Media 

7810 Malcolm Road 

Clinton, MD 20735 

(301) 868-5494 

$29.95 each, 64K disk 


Developed by Reeve Software and now 
brought out by USA Media, Diamond 
OS brings a complete windowing 
graphics operating environment to 
your Atari XL/XE/GS—just like the ST, 
says USA Media. Use the ST mouse, 
Atari joystick, touch tablet, trackball, 
or cursor keys to activate a pointer. 
Diamond lets you use icons, windows, 
drop-down menus, dialog boxes and 
desk accessories. Diamond can even 
access up to 16 megabytes of memory, 
for those who've been wondering 
what to do with their upgraded 8-bits. 
The disk version already available re- 
quires 64K memory. An enhanced car- 
tridge version requiring only 48K is 
scheduled to be released in November 
1988. 

Diamond OS is the first release in 
the ST, Jr. line and will be required 


for using the other programs including 
Diamond Paint, a paint program 
complete with draw, block move, line, 
k-line, box, circle and airbrush features. 
Diamond Paint also accepts Degas pic- 
tures from the ST and MacPaint pic- 
tures. Diamond Write is a word 
processor that includes cut and paste, a 
complete spell checker, and an 80- 
column display. Diamond Publish is 
a desktop publishing system that cre- 
ates text wrap-around graphics, text 
flow from column to column, and 
works with multiple-page documents. 
Diamond Programmer’s Kit in- 
cludes complete documentation for the 
Diamond environment and a resource 
editor that simplifies the creation of 
icons, drop-down menus, and dialog 
boxes. Programming samples in both 
BASIC and assembly language are also 
included in the kit. 


RS eR RE SE RRR, 
(utility programs) 

SFP 

4 Forest Drive 

Palmyra, VA 22963-2118 

$21.95, 48K disk 


SFP is a set of utility programs for use 
with Broderbund’s SynFile+ file 
management system. Using the SFP 
utility programs you can create, save 
and produce reports in either list or la- 
bel format; print or display the struc- 
ture of a SynFile+ file; modify look-up 
tables; alter values associated with rec- 
ord number and counter fields; change 
justification of any data item and re- 
cover deleted records. SFP comes with 
DOS 2.5 and Turbo-BASIC (64K ver- 
sion) and supports the same densities 
as SynFile+ when used with appro- 
priate DOS versions. 


New Products notices are compiled by 
the Antic staff from information 
provided by the products’ manufac- 
turers. Antic welcomes such submis- 
sions, but assumes no responsibility 
for the accuracy of these notices or the 
performance of the products listed. 


SAVE 25% TO 35% 


How To Order: 


Simply give the Order Numbers of the 
issues you want, and include the letter 
corresponding to the following selections: 


A- Magazine & disk 
B- magazine only 
C- disk only 


Example: 1A- is for “April 1983, magazine 
& disk” 


If no letters are indicated in your order, we 
will automatically send you the magazine 
only (B). 


Order # Selection Order # Selection 
A, B, or C A, B, or C 
Total Issues 
Ordered: 
Total Issues Ordered: lto5 6 & over: 
No. Issues of Sel. A: x $7 ea|| x $6.50 ea. = 
No. Issues of Sel. B: ix $3 ea||x $2.75 ea. = $ 
Issues of Sel. C: s $5 ea||x $4.75 ea, =$ 
Total $ 
Shipping & handling $ 
Amount enclosed $ 


Prices: 


1To5 If you order more 
Issues than 5 Issues 
$7.00 each $6.50 each 
$3.00 each $2.75 each 
$5.00 each $4.75 each 


Magazine only 
Disk only 
Magazine & Disk 


Please include shipping & handling charges: 
1 to 5issues: $1 for each issue 
6 and over : $5 plus 50c for each 
issue over 5. 


FOR ORDERS ONLY CALL TOLL- FREE 
(800) 234-7001 (7-5pm PST.) 
MasterCard & Visa Only 
Or send your check to: ANTIC BACK ISSUES 


544 Second Street San Francisco, CA 94107 
California residents add 6 1/2% sales tax. 


J Check Enclosed WU VISA _J MasterCard 
Name 


Address 


City. =—————“CiCs‘<C State = —té“‘éZ=N 


Credt Card # 


Exp. Date 


Canada, Mexico and all other foreign add $1. 
per issue. Payment in U.S. funds must 
accompany all foreign orders. California 
residents add 6 1/2 % sales tax. 


the ATARE resource 


Missing any issues? Looking for those great utilities, 


games, and reviews? You'll find it all right here! 
Copies are limited, so order today! 


ORDER * ISSUE 
1 April 1983: Games—3-D Maze, Voyeur 
2 May 1983: Telecomputing—Microids, 
Tele Chess 
3 June 1983: Databases— Stargazing, 
Dancin’ Man 
as July 1983: Adventure Games— Dragonsmoke, 
Shoot-em-up Math 
5 August 1983: Graphics—3-D Fuji, Keystroke 
Artist 
6 September 1983: Education—P/M Tutor 
7 October 1983: Sports Games— AutoCassette 
8 November 1983: Sound & Music—Air Raid, 
Casting Characters 
9 December 1983: Buyer’s Guide— 
AUTORUN.SYS, Automate Player/Missiles 
10 January 1984: Printers— Pocket Calendars, 
Screen Dump 
11 February 1984: Personal Finance—TYPO, 
Gauntlet 
12 March 1984: International Issue—DiskRead, 
Poker Solitaire 
13 April 1984: Games— Risky Rescue, 
Math Wizard 
14 May/June 1984: Exploring XL Computers— 
Escape from Epsilon, Scroll to the Top 
15 July 1984: Communications—AMODEM, 
BASIC Animation Secrets 
16 August 1984: Disk Drives— Horseplay, Recall 
17 September 1984: Computer Graphics— 
Graphics Converter, Olympic Dash 
18 October 1984: Computer Learning— Bouncing 
Ball, Antic 4/5 Editor/Animator 
19 November 1984: Computer Adventures— 
Adventure Island, Advent X-5 
20 December 1984: Buyer’s Guide—Infobits, 
Biffdrop 
21 January 1985: Super Utilities—TYPOII, 
DISKIO 
22 February 1985: Finances— Home Loan 
Analyzer, Drum/Bass Synth 
23 March 1985: Printers— Kwik Dump, Font 
Maker 
24 April 1985: Computer Frontiers— Dot Matrix 
Digitizer, Speech Editor 
25 May 1985: New Super Ataris—Son of Infobits, 
Arena Racer 
26 June 1985: Computer Arts—View 3-D, 
The Musician 
27 July 1985: Computer Challenges— Miniature 
Golf, Guess That Song 
28 August 1985: Telecommunications— Atari 
*Toons, Pro* Term 
29 September 1985: Power Programming— 


One-Pass Disk Copy 130, Crickets 


ORDER *# ISSUE 

30 October 1985: Mind Tools—Graph 3D, GEM 
Color Cascade 

31 November 1985: New Communications— 
TYPOII Double Feature, 13OXE Memory 
Management 

32 December 1985: Shoppers Guide— DISKIO 
Plus, Box-In 

33 January 1986: Atari Products are Back— 
Appointment Calendar, Dungeon Master’s 
Apprentice 

34 February 1986: Printer Power—T-Shirt 
Construction Set, Forth Escapes 

35 March 1986: Practical Applications—Lunar 
Lander Constructor, Lie Detector 

36 April 1986: Computer Mathematics— Fractal 
Zoom, 3-D Fractals 

37 May 1986: 4th Anniversary — Digital 
Gardener, Molecular Weight Calculator 

38 June 1986: Summer Computing— Weather 
Wizard, Bomb Squad 

39 July 1986: Computer Arts—Amazing Card 
Shuffler, Grafcon ST 

40 August 1986: Online Communications— 
Ultrafont, Floppy Filer 

41 September 1986: Weather—WEFAX Decoder 
(8-bit/ST), BASIC Tracer 

42 October 1986: Hard Disks—Video Stretch, 
ZTYPOST 

43 November 1986: Personal Finance— Budget 
dataBASE, V-Graph 

4 December 1986: Shoppers Guide— Stepper 
Motors, Nuclear Waste Dump 

45 January 1987: Talking Atari—Talking 
Typewriter, Rebound 

46 February1987: Word Processing—SF 
Fogger, Electric Charlie! 

47 March 1987: Dvorak Keyboard, 
Multi-AUTORUN 

48 April 1987: — Designer Labels, Taxman 

49 May 1987: 5th Anniversary—A-Rogue, Poker 
Slot Machine 

50 June 1987: Animation—Verbot Commander, 
Citadel 

51 July 1987: Print Anything—Ghost Writer, 
Your Net Worth 

52 August 1987: Atari Muscle— Sideways 
Spreadsheet, Diamond Dave 

53 September 1987: Work/Play— Mighty Mailer, 
Maximillian B. 

54 October 1987: Football Predictor—Antic 
Prompter (8-bit/ST), Spelling Checker 

55 November 1987: Practical Applications— 
Critical-Path Projects, WYSIWYG Cassettes 

56 December 1987: Print Holiday— PS. Envelope 


Maker, Antic Publisher 
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MANDALA MOVIES 


Kaleidoscope Construction Set. By Mike McFarlane 


andala Movies, this 
month’s Super Disk 
Bonus, is an addic- 
tively creative kaleido- 
scope construction set. Using sim- 
ple keyboard and joystick com- 
mands, you can effortlessly create an 
infinite number of fascinating de- 
signs that flow hypnotically in ever- 
varying patterns. 

The fascinated Antic editorial 
staff had a great time testing the pos- 
sibilities of Mandala Movies setting 
kaliedoscope patterns flowing 
across the monitors at unoccupied 
workstations for hours at a time. 
One Antic art department staffer 
was enthusiastic about using the 
vivid colors and striking patterns of 
Mandala Movies to design quilts or 
embroidery patterns. You can’t save 
or print designs, but you can freeze 
the screen image and photograph it. 

Mandala Movies is programmed 
entirely in speedy (but hard-to-type) 
machine language. Author Mike 
McFarlane did an excellent job with 


this highly artistic program. But, for 
reasons that would take too long to 
explain here, unfortunately Antic 
does not have McFarlane’s current 
address. We believe he lives in the 
Eugene, Oregon area and we'd love 
to hear from him, or from anyone 
who knows where to find him, so 
we can send Mike’s author fee. 


USING THE PROGRAM 


Use DOS command O to copy the 
MANDALA.EXE file to another disk 
that includes the DOS.SYS file. Don’t 
attempt to run Mandala Movies 
directly from the monthly Antic 
Disk. Use DOS command E to re- 
name MANDALA.EXE to AUTO- 
RUN.SYS. Turn off your computer 
and remove all cartridges. Place the 
disk in drive 1. If you’re using an XL 
or XE, hold down the [OPTION] key 
while you turn on your computer. 
Mandala Movies will load and run 
automatically. 

After a short demonstration run, 
you Can start experimenting with 
Mandala Movies. Follow the on- 
screen prompts for instructions. 
With just a few keystrokes and a 
nudge of the joystick you can pro- 
duce striking kaleidoscope patterns 
that will amaze your friends. 

Mandala Movies operates in GTIA 
mode 10, letting you work with 
eight colors in your design, plus one 
color for the background. In Color 
Selection mode you can adjust the 
colors to your liking, and even watch 


your current pattern change while 
you experiment with new colors. 
After you have an image you like, 
you can start it scrolling across the 
screen in several patterns for an en- 
tertaining visual display. 

Your February 1989 Antic Disk— 
featuring Mandala Movies as well as 
every type-in program from this 
issue—will be shipped to you within 
24 hours after receiving your order. 
Just phone Toll-Free to the Antic 
Disk Desk at (800) 234-7001. The 
monthly disk is only $5.95 (plus $2 
for shipping and handling) on your 
Visa or MasterCard. Or mail a $5.95 
check (plus $2 shipping and han- 
dling) to Antic Disk Desk, 544 Sec- 
ond Street, San Francisco, CA 94107. 

Programmers: Antic wants to see 
your most ambitious programs, even 
those too large or complex for print- 
ing as a type-in listing. High-quality 
programs in any language that has 
a runtime version are now eligible 
for consideration as a Super Disk 
Bonus. A 
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ONLINE 


Ultimate Atari reference tool goes online. 


Antic Index 


By Charles Jackson, Antic Technical and Online Editor 


st 


ntroducing the Antic Index, 
newest addition to ANTIC 
ONLINE and Compu- 
Serve. The Antic Index 
is the most comprehensive 
guide to back issues of 
Antic and START. If the 
Antic Index was 
published as a book, 
it would contain 
more than 8,500 
pages of product re- 
views, new prod- 
uct announce- 
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WordPerfect ST 
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ments, I/O letters, 
programming tutor- 
ials, feature articles 
and news bulletins. 

Need Atari in- 
formation fast? It’s all 
just seconds away. Find it 
in the Antic Index, the larg- 
est, fastest electronic guide to 
information about your Atari. And 
best of all, there’s no extra fee. 
You pay only standard CompuServe 
connect charges. There’s never any 
extra fees or surcharges for using the 
Antic Index. Just type GO ANTIC and 
select menu choice 10, The Antic 
Index. 

The Antic Index is primarily an 
electronically searchable database 
covering every article ever published 
in Antic, from the 1982 first issue till 
the beginning of 1989—plus most 
articles from START. But the Index is 
also a library as well as a database. So 
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far, you 
can actually 
download some 
20% of the com- 
plete Antic articles, 
my perhaps half of the com- 
plete START text, and 
many original major features from 
ANTIC ONLINE such as Tim Oren’s 
Professional GEM columns and Chris 
Crawford’s Assembly Language tu- 
torials. 

The Antic Index, currently at the 
seven megabyte mark, is an ongoing 
project of ANTIC ONLINE. Every 
week we'll be adding more and more 
information from old and new issues 
of START and Antic. The Antic Index 
is an all-text reference service, so it 


cannot contain any pho- 
tographs, diagrams, adver- 
tisements or program list- 
ings. If you need to see a 
diagram or use a program, 
you can order $3 back 
magazines or $5 back 
disks from the Antic Disk 
Desk. Just phone (800) 
234-7001 with your Visa 
or Mastercard order, or see 
the ad in this magazine for 
details on a magazine/disk 
back issue special offer. 

If you ever needed a 
clear programming tu- 
torial, a helpful product 
review, or just a fun game 
from Antic or START back issues, 
there used to be only one way to find 
it. Slide out your box of old maga- 
zines, start with the most likely- 
looking issue, search through each 
page. If you never missed or lost an 
issue and if you know exactly what 
you're looking for, you'll probably 
find the information you need. You'll 
also be quite a bit older than when 
you started. 

Now there’s an easier way. In a few 
seconds, the Antic Index can find 
your article, right down to the page 
number. In many cases, the index also 
contains the complete text of the ar- 
ticle. Just “capture” the information 
you need. There’s nothing simpler or 
faster. Let the Antic Index be your first 
stop when you need Atari information 
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fast. It'll probably be the only stop 
you need. 


ELEVEN WAYS TO SEARCH 


If you ever used a card catalog to 
find a library book, you'll have very 
little trouble using the Antic Index. A 
typical card catalog offers two ways 
to find a book—by author and by sub- 
ject. The Antic Index gives you eleven 
ways to find an article. You can search 
by: 

Author’s Name 
Month of Publication 
Year of Publication 
Subject 
*See a List of 
Subjects/Search* 
6 Department 
7 *See a List of 
Departments/Search* 
8 Programming Language 
9 Program Name 
10 Article Title 
11 Magazine Title 


Wo Q NO = 


Use the Author’s Name option to 


Use the Subject option to find all 
articles written by about a particular 
subject, such as Printers, Desktop 
Publishing and Business. If you need 
more help, use the *See a List of 
Subjects/Search * option to display 
a list of more than three dozen com- 
monly used subject headings. 

Use the Department option to 
find all articles written for a particu- 
lar subject, such as New Products, ST 
Section, and Features. Again, if you 
need more help, use the * See a List 
of Departments/Search* option to 
display a list of commonly used 
department headings. 

The Program Name and Pro- 
gramming Language options only 
search through articles which contain 
program listings. For example, you 
could search by Program Name to 
learn when Antic ran the 
STRETCH.ACT program. Use the 
Programming Language option 
when you know what language the 
program was written in. This option, 
for example, could find every AC- 


If the Antic Index was published 
as a book, it would contain 
more than 8,500 pages. 


find all articles written by a particu- 
lar author. For example, if you wanted 
to know when Russ Wetmore wrote 
those articles about the 1030 modem, 
you would search by Author’s Name 
for WETMORE. The index software 
searches through its database and 
compiles a list of every article writ- 
ten by WETMORE. This list is called 
a Selection set. Once a selection set is 
created, it’s put into a menu and dis- 
played onscreen. Now, just type in the 
number of the article you want to see. 
The Month and Year of Publica- 
tion options let you restrict your 
searches to a specified date. 
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TION! program Antic has printed. 
Just remember that the Antic Index is 
an all-text service and cannot contain 
program listings, only the accom- 
panying articles. 

The Article Title option finds an 
article by its title. If you entered “‘on- 
line,’ the Index would find every ar- 
ticle which has the word “online’’ 
anywhere in its title. 


SEARCH STRATEGIES 


The Magazine Title option lets 
you restrict your searches to Antic 
Magazine, START Magazine, or ANTIC 
ONLINE. 


Even if you don’t remember the ex- 
act title of the article, or even how to 
spell the author’s name, the Antic 
Index can still help. For example, if 
you needed Lawrence Dziegielewski’s 
“Disk Drive Survey,’ but couldn’t 
remember how to spell Dziegielewski, 
you could search by Author’s Name 
for any part of the name you could 
spell. Searches for “Dz” or “ski” 
would find the article almost as 
quickly as a search for Dziegielewski. 

Of course, you could have found 
the same article by searching by Sub- 
ject for “Review” or searching by Ar- 
ticle Title for “Disk.” 

In most cases you don’t need to 
type-in the entire search term. A few 
well-chosen keywords will do. Imag- 
ine you're looking for an article titled: 
“3-D Fractals: Three-dimensional ST 
landscapes.” 

But you could only remember that 
the article had the word ‘“‘fractal”’ in 
it. No problem. Select choice 10, 
Article Title from the SEARCH BY 
menu, and type the word “‘fractal’’ at 
the “Enter Article Title: prompt. 
Here’s what you'll see: 


Enter Article Title: fractal 

6 articles selected 

ANTIC ONLINE ABSTRACTS 

1 Faster Fractals 

2 Fractals For Your Atari 

3 Fractal Zoom 

4 3-D Fractals: Three dimension 
5 Fractal Congratulations 

6 Ballblazer & Rescue On Fractal 
Enter choice ! 


The index creates a menu listing ev- 
ery article which has the word “‘frac- 
tal’”’ in its title. The “3-D Fractals: 
Three Dimensional ST Landscapes’”’ 
article is choice #4. 

Type a 4 at the “Enter choice !” 
prompt, for complete bibliographic 
information about the article— 
including author, which issue it ap- 
peared in, the page number, and 
whether there are any type-in listings. 
If the complete text of the article has 
already been uploaded, it will appear 
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when you press [RETURN]. Other- 
wise, that [RETURN] will take you 
back to the SEARCH BY menu. 


COMBINING TERMS 


Sometimes the categories you select 
will be too broad. For example, 
searching for New Products would 
produce a selection set with more 
than 450 articles! 

Whenever your selection set has 
more than 50 articles, you can add an- 
other search method. This is called 
“narrowing”’ your search. Here’s what 
the screen would look like at this 
point in your New Products choice: 


‘ment 
? hee a List of Departnents/Search® 
§ Programing Language 
5 Pregran ha 
18 ticle Title 
il Magarin Title 


Enter choice ‘1€ 

tater ticle Title: OBS Express 
Conpederve WOA~1783 
71D 


#85 Express! 
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The Index is 
a library and 
a database. 


Enter Department: New Products 

455 articles selected 

The Index has found 455 articles 
containing new product announce- 
ments. If you can remember anything 
else about the article, such as the year 
it was published, you can eliminate 
the articles published in other years. 

For example, if you know that the 
new product announcement was 
published in 1985, you'd narrow your 
search by eliminating all other years. 
This time, the Index will only search 
through the 455 ‘““New Products” ar- 
ticles it found during its last search. 
It will not search through every arti- 
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cle in the database. Here’s what you’d 
see: 

SELECT YEAR PUBLISHED: 

1 1982 

2 1983 

3 1984 

4 1985 

5 1986 

6 1987 

7 1988 

8 1989 

Enter choice !4 

77 articles selected 


From the 455 New Product articles, 
the index has selected the 77 which 
were published in 1985. From here, 
you can continue to narrow your 
search, start a new search, or display 
a menu of the selected articles. 


SEARCH TIPS 


When combining several search 
methods, it’s usually easiest to start 
with the method that will produce 
the largest selection set, and narrow 
from there. 

Since you may only “narrow” a 
selection set having more than 50 
members, try to start your search with 
the method most likely to find at least 
50 articles. The following examples 
illustrate this strategy. 

SAMPLE TASK: Find all the articles 
written by Tim Oren in 1985. 

Strategy #1: If we begin by search- 
ing Author’s Name for Oren, the in- 
dex finds only 26 articles. Since we 
need more than 50 articles to use the 
“narrow” function, we must examine 
the publication date of each article, 
until we've found those published in 
1985. Strategy #2: If we begin by 
searching Year of Publication for 
1985, the index finds more than 250 
articles. From here, we narrow the 
selection set by searching Author’s 
Name for “Oren.’ Almost immedi- 
ately, the six Tim Oren articles from 
1985 appear. A 


Antic Technical and Online Editor 
Charles Jackson designed and put to- 
gether the Antic Index and ANTIC 
ONLINE. 


Antic, P.O. Box 1919 
Marion, OH 43306 
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Lyco Computer 


Since 1981 


Marketing & Consultants 


Air orders processed within 24 hours. 


Lyco Means Total Service. 


Mark ‘‘Mac”’ Bowser, Sales Manager 


| would personally like to thank all of our past customers for helping to make 
Lyco Computer one of the largest mail order companies and a leader in the 
industry. Also, | would like to extend my personal invitation to all computer en- 
thusiasts who have not experienced the services that we provide. Please call 
our trained sales staff at our toll-free number to inquire about our diverse 
product line and weekly specials. 


First and foremost our philosophy is to keep abreast of the changing market 
so that we can provide you with not only factory-fresh merchandise but also 
the newest models offered by the manufacturers at the absolute best possible 
prices. We offer the widest selection of computer hardware, software and ac- 
cessories. 


Feel free to call Lyco if you want to know more about a particular item. | can’t 
stress enough that our toll-free number is not just for orders. Many companies 
have a toll-free number for ordering, but if you just want to ask a question 
about a product, you have to make a toll call. Not at Lyco. Our trained sales 
staff is knowledgable about all the products we stock and is happy to answer 
any questions you may have. We will do our best to make sure that the 
product you select will fit your application. We also have Saturday hours - one 
more reason to call us for all your computer needs. 


Once you've placed your order with Lyco, we don't forget about you. Our 
friendly, professional customer service representatives will find answers to 


your questions about the status of an order, warranties, product availability, or 
prices. 


Lyco Computer stocks a multimillion dollar inventory of factory-fresh merchan- 
dise. Chances are we have exactly what you want right in our warehouse. And 
that means you'll get it fast. In fact, orders are normally shipped within 24 
hours. Free shipping on prepaid orders over $50, and there is no deposit re- 
quired on C.O.D. orders. Air freight or UPS Blue/Red Label shipping is availa- 
ble, too. And all products carry the full manufacturer’s warranties. 


| can’t see why anyone would shop anywhere else. Selection from our huge 
inventory, best price, service that can’t be beat — we've got it all here at Lyco 
Computer 


TO ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 
Outside Continental US Call: 1-717-494-1030 


Hours: Monday through Friday, 9:00 a.m. to 9:00 p.m. 
Saturday, 10:00 a.m. to 6:00 p.m. 


_ For Customer Service, call 1-717-494-1670, 
ini oa’ 9AM to 5PM, Mon. - Fri. 
oJ Or write: Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 17740 


PLEASE NOTE: « full manufacturers’ warranties ¢ no sales tax 
outside PA ¢ prices show 4% cash discount; add 4% for credit cards ¢ 
APO, FPO, international; add $5 plus 3% for priority * 4-week clearance 
on non-certified checks * we check for credit card theft © sorry, com- 
patibility not guaranteed ¢ return authorization required « due to new 
product guarantee, return restrictions apply © price/availability subject to 
change ® prepaid orders under $50 in Continental US, add $3.00. 


1-800-233- 


ATARI HARD DISK 
Super Speed 
Super Performance 


@® 20 Megabyte Drive 
$569°° 


MAGNAVOX 


CM-8502 


@® Improves ST 


@ Composite Performance 
Color @ Includes Hard Disk 
Utilities 


@ Green Text 
Switch 
@® Speaker 


@ Suggested 
Use 130 XE 


$179” 
INDUS 


GTS-100 


A. ATARI 


Cartridge Software 


@® Atari ST 

eae DSDD 3 for $9.95 
CALL FOR 

$195” TITLES! 

SuprahModem 


* fully compatible 
with industry- 
standard, intelligent 
AT” commands 

¢ Compact size 

¢ |-year warranty 


8088 XT in 
— COLOR SYSTEM 
a0 Me _— @ plug in and use im- 
aa mediately 


®@ One 360K Floppy, 1 Paralel 
ving IBM-XT compatible 


. ® 
© Multi I/O (includes 1 Serial @ 2-360K Drives 
& 


Port, 1 Game Pont, Clock 


for Two 360K's) Free 1-year limited 
° (8) Eight Expansion VO “ warranty 
lots 7 
@ Jr. AT Case w/Keylock tye | banka EY t.| re I 
Se 


Turbo, Reset LED 

@ 101 Key Keyboard 

@ 150 Watt Power Suppty 

© One Year Warranty on Parts 
& Labor 


ee 95 
5298  9909°° 


8760 


@ 144 Cps Draft 


@ 36 Cps NLQ 
@ EZ Soft Touch Selection 


$1 §99° * Paper Parking 


Std. & IBM Proprinter 


Il Camnatible 
Lt | | er $169.95° 
| Le $289.95 
NX-1000 Color ........ $225.95 
og eee $419.95 
NB-15 24 Pin .........-.. $669.95 
oe, | | ee $309.95 


Panasonic. = OKIDATA 


Office Automation 


1080i Model Il 


e 150 Cps Draft 

@ Friction & Tractor Feed Std. 

© Bidirectional & Logic 
Seeking 


@ NLQ in all Pitches 


v 


Okimate 20 


@ Color Printer 


@ 80 cps Draft 


“quantities limited 


1080i Model Il .......... $149.95* 
10911 Model Il .......... $195.95* 
TOBE cesassnssxnsincsansvnaness $309.95 
TNS ecsmsinwenensennitton $375.95 
a $439.95 
FF semen $319.95 


@ 40cps NLQ 


$129°° 


OKIMARS 20 onccscicivenveve $129.95 
Okimate 20 w/cart ..... $189.95 
nee $219.95 
a a ar $209.95 
eons $225.95 


Citizen 

ZO WO icteric easier $144.95 
MBO) DD nctet isteach nari s eaee $159.95 
MS P24O) sssccssecsasccnsacnses $279.95 
MSP=15E. scesecesscsicnwsseee $309.95 
MIS PESO) vc iersesene teens $369.95 
MSP=45) cccidinncscccsxsacess $349.95 
MSP=5S) secseccccvoscomsnnas $469.95 


Access: 

is fy $11.95 
Leader Board Double 

POI, ccnutincerw initiate $9.99 
Activision: 

Music Studio «...0:cc.s<00: $19.95 
Great American Road 

Co ne $9.99 
Broderbund: 

PUN OD! sescsicssisssasascss $26.95 


Graphic Lib. |,II or Ill...ea. $14.95 
Electronic Arts: 


Pinball Con. Set ............ $8.95 
eo te: $8.95 
Lords of Conquest ......... $8.95 
Super Boulderdash ....... $8.95 
Music Construction 
BENE ecanteratanticncercmatiatienans $8.95 
5-1/4 
Disk Notcher ................. $5.95 
Maxell: 
SS, $7.95 
Sh $8.95 
Bonus: 
ED cutmetaenascntnianuiis $5.95 
Cs.) $6.95 
SKC: 
: $6.95 
Bs |S a ee $13.95 


Selkosha 

SP 1200AS RS232 ... $179.95 
SA 0). er $329.95 
MP5420FA ................ $999.95 
SP Series Ribbon .......... $7.95 
SK3000 Ai ................. $349.95 
SK SOOS AN sscscceseerercecs $445.95 
So) $CALL 
| $599.95 
SP IGOOA I) scecxcncscveseweses $CALL 


Access: 

TVOUN FPaITN© sssececis cctecveseee $22.95 
Activision: 

Music Studio ................ $27.95 
Broderbund: 


Superbike Challenge ... $11.95 
Typhoon Thompson .... $21.95 
Electronic Arts: 

Hunt for Red October .. $32.95 


Awesome Arcade Pack 
nC ee eee $30.95 
Epyx: 
Dive Bomber ............... $22.95 
Impossible Mission 2 ... $22.95 
Winter Games ............. $11.95 
Firebird: 
Universal Military 
Simulator ........ 2... G2R 95 
Diskettes 
Generic: 
Co.) ——— $4.95 
Verbatim 
S21): a ee ere $8.99 
Ls $11.50 
x a 
Maxell 
ee $11.50 
2S ee $17.95 


Attention 
Educational 
Institutions: 


if you are not currently using 
our educational service 
program, please call our 
representatives for details. 


Microleague: 

Microleague Baseball .. $33.95 
Micro. Wrestling .......... $25.95 
Microprose: 

F-15 Strike Eagle ........ $24.95 
Cl) $28.95 
Mindscape: 

Road Runner ............... $27.95 
Indiana Jones and the 

Temple of Doom ......... $27.95 
Origin: 

Autoduel ...................... $24.95 
So . | $34.95 
Strategic Simulations: 
Questron IIo... $32.95 
Heroes of the Lance ... $25.95 


et $13.95 
Verbatim 

SSL” sensu $12.95 
DIG Secewentiencpictetanialista $18.95 
SKC: 

ELD. saicnzcesamtonimcsiateiadion $9.95 
oot $13.99 


Epson 

LOD csctascanosisnnasanasets $184.95 
PRO cascinacaatsccternccncans $339.95 
PUN? sc onxenantocnomes $499.95 
1) | ener $434.95 
PERO cescinswcnesinanctenoaress $339.95 
OTIS icissimemarnioasasavan $LOW 
22 | ne $525.95 
CEO) saneieeremecmnone $749.95 


Brother 
er $189.95 
| $335.95 
LE | a $439.95 
Twinwriter 6 Dot & 

| artes $899.95 


INTERFACING AVAILABLE 


Magnavox: 

CU $79.95 

BINT GRD ccc osesievsnasisouns $79.95 

Ca $179.95 

Interfacing: 

Xetec AT .......e.... $39.95 

Microprint .............. $39.95 

PR Connection ..... $62.95 

Printer 

Connection ........... $39.95 
DEALER 

INQUIRIES 

INVITED 


Winner 909 .................. $24.95 
Wico IBM/AP ............... $29.95 
fe ie) $14.95 
Kraft KC Ill Ap/PC ....... $16.95 
Kraft PC Joystick 

BES sen tincadsslannces $27.95 
Kraft Maze Master ......... $8.95 
be $13.95 
=i G0 i). $13.95 


Join the thousands who shop Lyco and Save 


| $89.95 
1200hc Modem ........... $89.95 
24:{) (eee $149.95 
Supra: 

| | ee $119.95* 
i $119.95* 

|) | $129.95 


*limited quantities 


Avater 
2400 
Modem 


$1499° 


Disc 
Storage 
CFO Se connec 


CIVSHA FS BK exsicccissanssnns 
COVEAO SV siciscisccescscssce 


Sf Iype-In Software 


GAME OF THE MONTH 


Roulette, Atari Style 


You won't lose your shirt to the 8-bit croupier. By Michael Pemberton 


| AYVATLAGBLE : 


GET OR 
HMOUNRT 7 eSG 


$566 


oN 


hy buy a roulette table when 
your Atari can be a champ- 


1ionship casino croupier? This BASIC 
program works on 8-bit Atari com- 
puters with at least 48K memory, 


disk or cassette. 


My luck in casinos has been con- 
sistently poor. I figured that the best 
way to survive an upcoming trip to 
Vegas would be to practice the games 
I was most interested in—craps, black- 
jack and roulette. 

Now, I own some dice and some 
cards, but I don’t know anyone with 
a roulette table stashed away in the ga- 
rage. Undaunted, I rolled up my 
sleeves, put on my shaded visor and 
wrote a program to play Roulette on 


18 


my Atari 800. 


GETTING STARTED 


Type in Listing 1, ROULETTE.BAS, 
check it with TYPO II and SAVE a 
copy before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 140-144, don’t 
type them in. Instead, type Listing 2, 
check it with TYPO II and SAVE a 
copy. When you RUN Listing 2, it cre- 
ates these hard-to-type lines and stores 


them in a file called LINES.LST. To 
merge the two programs, disk users 
LOAD “D:ROULETTE.BAS” and then 
ENTER “D:LINES.LST”” Cassette users: 
CLOAD Listing 1, then insert the 
separate cassette used for Listing 2 
and ENTER “‘C:”. Remember to SAVE 
the completed program before you 
RUN it. 

When you RUN Roulette, the titles 
will appear and the screen will go 
blank for about 10 seconds while the 
program draws the gameboard, color- 
ing the ‘‘red’’ numbers with 
Player/Missile graphics. When the 
screen turns on again, the Roulette 
board will appear with the cursor in 
the upper left-hand corner. 

With a joystick in Port 1, you can 
move the cursor to any position on 
the board and place bets. Pressing 
the joystick button puts a chip at 
the cursor position. A buzzer will 
sound if you try to place a bet on an 
illegal spot. 

You'll be asked to verify the bet 
and say how much money you want 
to wager. You can risk any amount on 
a single bet, as long as you don’t ex- 
ceed the amount of cash you have on 
hand. Betting $0 counts as no bet, and 
your chip will be removed from the 
board. To increase the amount of a 
bet, just put a second bet in the same 
area of the board and the software 
will add it in. 

Once you place all your bets, press 
[START] to spin the wheel. The spin- 
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ning numbers will appear below the 
betting board and will go through the 
whole sequence at least twice before 
settling on a winning number. 

When that winning number comes 
up, the computer will determine your 
winnings, if any, listing each success- 
ful bet with the amount of money it’s 
won for you. If you go broke, the 
computer will let you start over. To 
bet again, just press [RETURN]. That’s 
all there is to it. 


BETTING ON ROULETTE 


Now all you have to do is learn the 
authorized roulette bets. 


(for example, 7, 8, 10, 11). Put your 
chip at the point where they all meet. 
Pays 8 to 1. 

5. Line bets (5): you bet on the five 
numbers 0, 00, 1, 2, 3. Put your chip 
at the top or bottom of the line that 
connects these five numbers. Pays 
6 to 1. 

6. Line bets (6): you bet on the six 
numbers that border one of the 11 
vertical lines on the board (for exam- 
ple, 13 through 18). Put your chip at 
the top or bottom of the line you’re 
betting on. Pays 5 to 1. 

7. Column bets: you bet on the 12 
numbers in one of the three horizon- 


There are 11 
different kinds of bets in 
Roulette. This may sound complex, 
but the system is actually 
very easy to learn. 


There are 11 different kinds of bets 
in Roulette. This may sound complex, 
but the system is actually very easy to 
learn, and you place bets with this 
program exactly as you would if you 
were in a real casino. Here is how the 
bets work: 

1. Straight bets: you bet on any 
single number. Put your chip right 
inside that number’s square. Pays 35 
to 1. 

2. Split bets: you bet on any two ad- 
joining numbers (0 and 00 adjoin only 
each other). Put your chip on the line 
between the two numbers. Pays 17 
to 1. 

3. Street bets: you bet on any three 
numbers in a vertical line. Put your 
chip on the outside edge of the board 
(top or bottom) where the “‘street”’ 
ends. Pays 11 to 1. 

4. Square bets: you bet any four 
numbers grouped together in a square 
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tal ranks across the board. Put your 
chip on the right-hand edge of the 
column you’re betting on. Pays 2 to 1. 

8. Dozen bets: you bet on either the 
first, second or third dozen numbers 
on the wheel. All dozens lose on 0 or 
OO. Put your chip inside the 1ST 
DOZEN, 2ND DOZEN or 3RD 
DOZEN box. Pays 2 to 1. 

9. High/Low bets: you bet on either 
1 to 18, or 19 to 36. All high/low bets 
lose on O or OO. Place your chip in 
either the 1-18 box or the 19-36 box 
respectively. Pays even money. 

10. Odd/Even bets: you bet on 
whether the winning number will be 
odd or even. All odd/even bets lose 
on 0 or 00. Put your chip in the ODD 
or EVEN box. Pays even money. 

11. Black/Red bets: same as 
Odd/Even, except you put your chip 
in the BLACK or RED box. Pays even 
money. 


I have yet to find any betting 
strategy that wins consistently (no 
surprise there!), but ll keep trying. 
Maybe you'll do better. 


PROGRAM TAKE-APART 


The key to this Roulette program 
lies in the configuration of BET$, 
which identifies the kind of bet be- 
ing made. The ATASCII value of each 
character in BET$ specifies a certain 
type of bet—1-38 are the straight bets, 
39 is a line bet (5), 40-97 are the split 
bets, etc. The program notes the cur- 
sor’s horizontal and vertical position 
when a bet is made, uses them to 
identify a corresponding character in 
BET$, translates this character into a 
numerical value with the ASC func- 
tion and then decodes and records 
the bet in the appropriate variable. 

The wheel is spun via the RND 
function, and it will go through two 
to five complete rotations before stop- 
ping on a number. The starting posi- 
tion for successive spins is the num- 
ber which has just won. (This 
happens in Las Vegas roulette too.) 

Finding out which bets (if any) have 
won is simple. The possible winning 
numbers are determined for each bet, 
and if one matches the actual winning 
number, the original amount bet is au- 
tomatically returned to your stake and 
the winnings are calculated. 

10-510 Game Setup 

900-1070 Cursor Movement 
1075-1160 Interpret Bet Type 
1190-1630 Record Bets and 

Amounts 
2000-2040 Spin the Wheel 
3000-3530 Display Winnings 
4100-4520 Bet and Gameboard 
Subroutines 
5000-5060 Gameboard Configu- 
ration 
6000-6120 BET$ Character Codes 
6130-6140 Roulette Wheel 
Numbers & 


Michael Pemberton ts working on a Ph.D. 
in English at the University of Califor- 
nia, San Diego. 


Listing on page 26 
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Order Toll Free 


800-558-0003Computg Ability 300-558-0003 


olalelejelelslelelels,-le le lelels Te [ereTeleretete"etane"a"atene"s ee te eee ea ea se ee ah Na a NI CT he eis" est ‘ne “hee eee "eae Tete h ve Te “a TeTa vee Ts"eTe7e“e7evee" 


WI Orders & Info 414-357-8181 plect to & 1 


Anti-Glare Screen ......... 

Drive Master ................ 44.95 
3.5 Drive Clean Kit ......... 9.95 
6 Way Surge Protector .14.95 


we 6 FT SF 354/314 Cable .19.95 
MODEM SPECIAL Monitor Master via 


¢ Supra 2400 baud modem MIDI Synth Special [RIVET rc 34.95 

soseeeeccceccseeees ¢ ST modem cable CASIO HT-700 midi Mouse Pad ..................... 8.95 

ST Host Controller .Cal] | |* Flash V1.6_ Software Synthesizer and Keyboard with PCM | Mouse HOUSE ...............-. 6.95 

. 3.5" $S/DD Disks** .....11.95 
Drive Master ........ , , 


IMG Image 
Scanner 


@eeeeneoene 


e PC Ditto 
¢ ST/PC 5.25" Drive 


eeeocoeeve 


er etetate 
Oo 


S op 8 5 


XF-551 Disk Drive 
Double Density 


JOYSTICKS** 
Wico Super 3-Way .....19.95 


Modem Package 
Avatex 1200 HCe P.R. Connec 
tion ¢ 850 Express Softwaree 


Computer 
Special 
130XE 9299 


Computer 
With XF-551 


XEP-80 8O ~—si|_s*[ PR-Connection a. 


Column Card ation «59. EpyX SOOXY ......sseeseee 12.95 
Supra 1150 Interface.............. CALL EDK ZOU Ral sncnnctiicinscanien 9.95 


Graphic AT Interface .............. ; a 


BOOO000R 
‘anetane’ 


foatatate eatatata tate ate at ntnta atest 


PEP BOS OU 0800009, 2 


eer et rete te 
a ae nts en ge a e's 66 0 4 ss "0's "00/5 "0's "0 se /s's"e"s 


Panasonic MODEMS 
ee Avatex 1200 E..........69 


9.25" Disk Notcher ....... 4.95 
ee 6 Way Surge Protector14.95 
ANEWOdnin ee ae ke PHAGE SANG secisssccsciae oo 


ren SPECIAL INCLUDES : Supra 2400 modem, cable 
and Free shipping in Continental USA . 1000 Sheets P BOGE cx 


Miscellaneous 


Dear WRN sssicssscccxintnriisainniorne 18.05 


10 Little Robots ooo. 18. 


Alternate Reallty:City ................. woe 20.95 


Eternal Dagger ...............-........... 28.05 Alternate Reality: Dungeon ............ 20.95 1986 Team Disk For MLB ..............14.05 FFM rator eee ssseeseeee teres 19,05 SHIP POKOE cocsccccscssssecececcceceeeecee..... 21,05 
Gettysburg ......................... 30,05 BIBMANK nsneinereeennnennrnree 20.05 PURIST DN io 27.95 «1087 Team Disk For MLB.............14.05 Jupiter MISION 1909 .......esssee 32.05 Super HUBY .cccessccssseesesenesnese 16.95 
Kampfgruppe ....................... 39.05 Napolean in Russia... cee. 18.95 Guterte 0 one ACO Of ACES nn. cesseeeeseccereeeeeeee 18,95 Leaderboard Duo Pak... 10.05 Surmmer Games oo... cececsscssssessseees 12.05 
Mech Brigade ......................... To _— aoa... 16.95 AN Star Roster Disk on... 14.05 LOVE NOW Mak@r on .seserseseseseee 10.05 Tripple PAK oo ccccsccccccssscsseersesseee 14.95 
Phantasle ........ccccc.-c-----.. poem 28.95 Video Title SHOP ...........esscessssessees la ieee aaa ; Apshal Trilogy oo... ...eccesccscsecssee see 14.95 Mastertype ............. seaenilesasaos cL 7, 10.05 
Phantaste fl ...-cccccccccsscssessscessecee.e. 26.05 Battle of Chickamuga .................... 23.05 Award Ware... .ceccceseeseeeeeceeeeee 10.05 Math Blaster cccccccccesnseess 8205 URIVEIC cocccccccccecssseeeeeeeeeeseceecesee. 32.05 
Rebel Charge Chickamauga ......... 32.05 Rommel TOD PUK oo... eecceecessssescseee 26.05 Blazing Paddles 2.20... 22.05 Micro League Baseball 25.05 Word Attack oooccccccccccsccccece-oc.......... 32.05 
BHMION oon cecccccccceccecccssssseeseeooeeee.., 26.05 Sh ee 33.05 Bop-n- Wrestle (64k) ....................19.05 MLB Box/Stat oe 14.05 

Sons Of LIDOTY oo. ooecccccsceecccoceeeeees 26.05 Chessmaster 2000 .............ccsescee 26.05 Boulderdash Const. Ki .2.0..0000000.....12.05 Ne@tworth esses cesnennesees 25.95 


UBF. ooccsccsscssssntssesesereseees 30.05 ' Champ. Loadrunner ......-nsesso osha Ser aaatget ae 

War In Russia... 52°95 NEW Diamond OS CYCIe KAIQAE .evnreneinerennee 18.05 Print Driver Const 88 nnn 16.05 BRODERBUND 

Wa Cons n Sat ellaacate 20.95 Deeper. Dngrv Gauntlet a 17.95 R Time 8 Cart abanhbalceectanesSesdedenbnensce, 54.05 @ ic Lib 1 16 3 

a tructlo age > oO Electronic Checkbook... 1495 Racecar Arthmetic 18.05 car ra ao" 
254 94004 2000s C008 er ees coees seees cosas case . e mpeg } Scene Disk #11 a 17.06 O00 ees Beees CHee CeneE ees . 

Wizards Grown .................., 26.95 , Electric Datamanager ................. 14.05 “! Graphics Library 3.................. 18.05 


Fleet System 2 ooo ccccccccceeene 30.05 Sparta Dos oc sceccsee cone 20.8 


‘ Flight Simulator I __ ae 33.05 Sparta Tools Pe ee Karateka S00 wanes wanes tees neces cones sesssseeee vee 19.05 

We Have Many Programs For The Atarl! 400/ tse teigerernesd MON Tee 18.05 Spy Vs. Spy 3 ooo 12.05 Print Shop iia eee chee te ace 28.05 
Gauntlet (64k) oo. ccccccccccsssse cece 22.05 SPOW Macc cccceeeeccncnnsnseneeeees 82.05 poly Companion nena 

800/XE/XL. If You Don't See It Here : CALL General Mane fat MLB nn 10.05 ANNE sarees wn" mee 


Order Toll Free Since 1982 ae Se Order Toll Free 
800-558-0003 Computthility 800-558-0003 


WI Orders & Info 414-357-8181 


Consumer plectronics 
ae a 


Mon - Fri 9 am - 9 pm CST Your ST STORE that's as close as YOUR PHONE Mon - Fri 9 am - 9 pm CST ANT-2- 8 9 
Sat 11 am-5 pm 0 an 1982 Sat 11 am-5 pm 


Ewkown Conputothility eral 


SIONAL AA IIIA IIIA IAA AAD C re) fi 4 al mn e va f V/ e c # Yad re) fu é c 4 aa did toda ddd deine 


PARR AI AS 
(pe ee ge ees 


a 


_  pebiainnamanainpisteaat 
Font Pak 1 for Easy Draw .............. 


3D Font Package 1 or 2 
3D Plotter & Printer Driver 


PAGE STREAM oo occccsce-... 127. 8T Sprite Factory 
8T Tak Professional 


. : . : Printmaster Phus ................ cee 
Architecural Design Disk : People, Places, Things Graphics 25.05 : | 
Art and Film Director Symbols & Slogans Graphics ..... 25.95 . scenes WM: PLO MIG oc ccccssssccscscecsseeeenseereene 


Drafix Large Data Plotter ............... 


1B Disk Utility 
IB Hard Disk Back Up 


Roland D/110 
SOOO WE ses cscessctcsccscccteccoxesecnccs 


ST Recreation Software Specials 


BD Break-THU ....ccccccceccccccsceececeeseee 2D. Harrier Combat Simulater s Metropolis 2000 st ....................... 22. Rubicom Alllance 


Night on the T ; 
OMRERDT nas 15 TMG® 800909 


Phantasie 1,2 or 3 (ie waseeicedseeduaeswuncuseatssunnaatecs Twilight Ransom 
Pinball Factory 95 Ubima Itt or IV 
King’s Quest 1 ‘ 7 Oe eee eee eee Rene eee ee eee . niversa M itary lator 
MNS CURSE 2 sss ccscrscsstcacsescaneseovets 
King’s Quest 4 NEW 
King’s Quest 3 


Leatherneck 4 Player Adaptor : Rebel Charge @ Chickamauga 
Leisure Suit Larry 25.05 Rebel Universe |... ee 


Letsure Suit Larry 2 look’n for love 32. aL, ee eee gg gs Western Europe Scen. Disk ........... 
Western Games ..............00..ccccccee 


oldrunner Scen Disks 1 Or 2 : . : Lipa os trad esepamsesrsitOe World Games sesesenene 
: : ae WWE Micro Wrestling 


No surcharge for Since 1982 ss = 
MasterCard SSE 7B Os772 put ft hili £ Y RRR si —e (OF 0+ Technical info, Order 
Te 


isa 
To Order Call Free P.O. BOX 17882,MILWAUKEE,WI 53217 ii iiaiacesnonjaaey This. or for: Wino. Crcore 


800-558-0003 sun mmunesors Consumer flectronics —_tweuma-cmrmn 414-357-8181 


ORDERING INFORMATION: Please specify system. For fast delivery send cashier's check or money order. Personal and company checks allow 14 business days to clear. Schoo! P.O.'s welcome. C_O.D. charges are $3.00. In Continental UGA Include $3.00 for software orders 5% shipping 
for hardware minimum $5.00. MasterCard and Viea orders please Include card #, expiration date and signature. WI residents please include 5% sales tax Hi, AK, FPO, APO, Puerto Rico and Canadian orders, please add 6% shipping, Minimum $6.00. Ail other foreign orders add 15% 
shipping, minimum $18.00. All order shipped outside the Continental U.S.A are shipped first class Insured U.6. mail. If foreign shipping charrges exceed the minimum amount, you will be charged the additional arnount to get your package tp you quickly and safely. Al goods are new and 
include factory warranty. Due to our low prices all sales are final. All defective returns must have a retum authorization number. Please cail (414 )357-8181 to obtain an RA# or your return will not be accepted Prices and avaliability subject to change without notice. 


oy Iype-In Software 


EDUCATION 


Spelling Flashcards 


Friendly quiz that kids like using. By Andy Barton 


P 


Spelling Flashcards is a simple, ver- 
satile spelling drill for all ages. Like 
Math Flashcards, the predecessor 
program I wrote (Antic, October 
1987), this spelling quizzer program 
is friendly and interesting with a lit- 
tle color and music. But it doesn’t dis- 
tract or intimidate kids with unduly 
flashy displays. 

You easily create your own lists of 


rs 


pelling Flashcards is a simple, 
versatile spelling quizzer for all 
ages. It’s enjoyable for kids, without 
intimidating them by excessive flash. 
This BASIC Program works on all 
Atari 8-bit computers with at least 
48K memory and a disk drive. 


hard-to-spell words. Then Spelling 
Flashcards will randomly pick a word 
and flash it on the screen. 

If you spell the word correctly, 
youre rewarded with an ever- 
changing little tune. Otherwise, the 
screen turns red, the word flashes 
again, incorrect letters are blanked out 
and you get to try again. After you 
type the word correctly, that word 


will be repeated three more times dur- 
ing the quiz to help you get it down 
perfectly. 

Speed is important, too. If you take 
too long to spell a word, the program 
considers it incorrect. At the end of 
the quiz, Spelling Flashcards shows 
you the number of correctly spelled 
words and the total number of words 
tried. 


GETTING STARTED 


If you put Spelling Flashcards ona 
separate disk, its menu will be easier 
to read. Format a fresh disk with DOS 
2.0 or DOS 2.5 and write the DOS 
files to it. Type in Listing 1, SPELL- 
ING.BAS, check it with TYPO II and 
SAVE a copy before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 5860-5870, 
don't type them in. Instead, type List- 
ing 2, check it with TYPO II and SAVE 
a copy. When you RUN Listing 2, it 
creates these hard-to-type lines and 
stores them in a file called LINES.LST. 
To merge the two programs, LOAD 
“D:SPELLING.BAS” and then ENTER 
‘“D:LINES.LST,’ Remember to SAVE 
the completed program before you 
RUN it. 

When RUN, the program displays 
a file menu of all the Spelling Flash- 
card lists on your disk. The menu at 
the bottom of the screen lets you load 
one or more Spelling Flashcards lists, 
edit a list, or create a new list. 

Type a list’s number to load it into 
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Spelling Flashcards. You can choose 
a single number, several numbers 
separated by commas or two numbers 
separated by a hypen, indicating a 
block of files. For example, type a 3 
to load list number 3. Type 3,5,9 to 
load lists 3, 5 and 9. Type 5-8 to load 
lists 5, 6, 7 and 8. 

Edit a list by typing E followed by 
the number of the list you wish to 
edit. For example, typing E7 will let 
you edit list number 7. Finally, type 
N to create a new list of spelling 
words. 


CREATING A LIST 


If you’re typing-in SPELLING. BAS, 
you'll need to create a few lists before 
you continue. Antic Disk owners will 
find several spelling lists on this 
month’s disk. These lists have a .DAT 
file extender. 

To begin your list, type N. The pro- 
gram will ask you for a title of your 
list. The title can be up to 8 charac- 
ters long, and will be used to store 
your list to a disk file. While you may 
type most anything you wish, the 
program will adjust it to conform to 
a standard Atari disk filename, and 
add a .DAT extender. 

Spelling Flashcards will display the 
adjusted filename and ask you if it is 
correct. Press N to change the file- 
name, or press any other key to ac- 
cept it. Pressing [RETURN] without 
typing a title sends you back to the 
main menu without creating any new 
lists. 

Next you're asked to select the 
number of seconds you wish the 
word to be flashed on the screen. The 
default is 0.75, but younger children 
might find one or two seconds more 
reasonable and less threatening. You 
can also change this value later in the 
Edit mode, if you wish. 

Now type in your list. Each word 
can be as many as 15 characters long, 
including hyphens, apostrophes, and 
spaces. Numbers and lowercase letters 
are not allowed. You may have up to 
40 words per list. When you’re done, 
press [RETURN] to save your list to 
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disk. 
PLAYING THE GAME 


After the program loads the list(s) 
you selected, you'll see the words dis- 
played onscreen for you to review. 
Press any key to start the drill. 

Spelling Flashcards randomly 
selects a listed word and briefly 
flashes it onscreen. Your task is to type 
it in. The [DELETE] and arrow keys 
will fix any typing mistakes you make. 
After you spell the word, the program 
will check it. There is no need to press 
[RETURN]. 

Correctly spelled words are re- 


pressed, a Graphics 2 window opens 
in the middle of the screen. You'll en- 
ter and edit words within this 
window. 

To add a word simply type it. To 
edit a word, type the number of the 
word in the list displayed onscreen, 
then edit the word. You don’t need 
to press [RETURN], but the second 
digit of a two-digit number must be 
pressed within 0.5 seconds. 

The [DELETE] and [CONTROL]- 
[DELETE] keys work in the normal 
Atari fashion. Move the cursor (a blue 
bar below the letters) with the left and 
right arrow keys. You do not need to 


Correctly spelled words 
are rewarded with a brief 
ever-changing tune. 


warded with a brief ever-changing 
tune. Misspelled words turn the 
screen red and must be corrected. 
They are repeated three times on or- 
ange screens, mixed in with new 
words. 

If you are totally stuck, press |[RE- 
TURN] to flash the word onscreen 
again. This counts as a misspelling. If 
you do not type the word quickly 
enough, you'll also be penalized for 
a misspelling. 

Errors are not monitored directly, 
but the number of tries and the num- 
ber of correct answers are counted. 
The purpose of the drill is to teach, 
not penalize. 

When you're done, Spelling Flash- 
cards plays a longer random tune. 
Press any key to go on to your next 
list or return to the main menu. 


EDIT A LIST 


The New List and Edit options 
share a section of programming. Ad- 
ding, correcting and deleting words 
is done the same way. When a key is 


press [CONTROL] to use these keys. 

Press [RETURN] to accept the word 
and display the updated list. To de- 
lete a word, simply bring it into the 
window by typing its number, [DE- 
LETE] or [SPACEBAR] over each let- 
ter and press [RETURN]. When you 
are finished with a list, press [RE- 
TURN] to save it to disk and return 
to the main menu. 


PROGRAM TAKE-APART 


Spelling Flashcards is written up- 
side down, with the initialization rou- 
tines and lesser-used portions at the 
end of the program. The frequently 
used subroutines are at the top, where 
BASIC can find them quickly. 

Lines 5500-5570. The initialization 
section starts with a table of 
parameters which you can customize. 
DVIEW in line 5550 is the default 
value for the length of time a word 
is flashed on the screen. You can ex- 
periment with different values when 
you enter or edit a list. If you want 
the timer to use a different default 
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value, put it in line 5550. If you 
change line 5550, remember to SAVE 
the program to make the change per- 
manent. 

Lines 5860-5870 contain a speedy 
machine language “memory move’”’ 
routine, a modified version of a USR 
routine from Antic Tech Tips (Janu- 
ary 1985, page 64). Here, I use it to 
copy the character set from ROM to 
RAM, where it is redefined at line 
5900. 

Lines 4500-5020: This routine 
reads and displays the disk menu. See 
Antic Tech Tips, July 1986, page 87. 

The main menu, as well as word 
lists, are displayed in the largest 
graphics mode possible. The program 
uses Graphics 2 if the list is 10 words 
or less and Graphics 1 if it is 20 or less. 
Larger lists use Graphics 0. Lines 4600 
and 3130 do this with a little Boolean 
math. In one line, this routine does 
the same work as three or four lines 
of IF-TTHEN statements. (See Antic, 
August 1984, pages 48-52.) 


HAVE A QUESTION 
ABOUT YOUR 
SUBSCRIPTION? 


Get an answer fast! 


Call Toll Free: 


(800) 347-6969 


Write: 
Antic Customer Service 
P.O. Box 1919 
Marion, OH 43306 


Line 3230-3360. The main loop of 
the program is short, but uses subrou- 
tines extensively. And many of these 
subroutines call other subroutines. 
The result is a compact, easy-to-type 
program. 

Within this loop, the matrix 
TRACK(X,X) keeps track of the status 
of the words in your list. It has two 
rows. Row (0,X) contains a random 
series of numbers. Each number cor- 
responds to a word in the spelling list. 
The program uses this information to 
build its random list of words. 

Row (1,X) records how many more 
times a misspelled word must be 
repeated. TRACK(1,0) is a flag which 
directs the main loop to the proper 
combination of subroutines for either 
the basic drill or the misspelled drill. 

Lines 110-140. The first subroutine 
is a timer. It is short, clean and ac- 
curate. Probably most every other 
programmer knows about it. But I just 
recently stumbled upon it in a article 
I read but forgot years ago (Antic, 
March 1984, pages 19-21). If you’re 
not familiar with Atari’s built-in count- 
down timers, take a second to check 
them out. 

A countdown timer is a system 
timer that counts backwards and uses 
jiffies (60 jiffies = one second) instead 
of seconds. This program uses 
CDTMV3, system timer 3. Here’s how 
to use countdown timers: 

1. Determine the length of time you 
need to monitor, and convert this 
value into jiffies. Five seconds, for ex- 
ample, is equal to 300 jiffies. 

2. Separate this value into low-bytes 
and high-bytes. The low and high- 
byte values of 300, for example, are 
44 and 1. 

3. Temporarily turn off the clock 
by placing a 1 (or any non-zero value) 
into CRITIC, the critical I/O region 
flag (memory location 66, $42). 

4. Set the timer by placing your low 
and high-byte values into the count- 
down timer register. In this example, 
were using countdown timer 3, 
CDTMV3, which is accessed through 
memory locations 540 and 541 


($021C and $021D). 
5. POKE a zero into CRITIC to turn 
the clock back on and start counting. 
6. Monitor countdown timer flag 3, 
CDTMF3, memory location 554 
($022A). When PEEK(554)=1, time is 
up! See line 3880 where the program 


You easily 
create your 
own lists of 

hard-to-spell 
words. 


is waiting for either a key to be 
pressed or the timer to run out before 
it Moves on. 

Here's one last item you may wish 
to customize. I hate pressing [RE- 
TURN] if it is not absolutely necessary. 
This program was designed with that 
bias in mind. However this poses a 
problem when you could choose to 
enter a 1 or 2 digit number. This hap- 
pens in the Edit section of the pro- 
gram when you could choose to edit 
word 1 or word 15. 

Problem: How is the program go- 
ing to know when you are through 
if you don’t press [RETURN]? Solu- 
tion: set a brief time limit for enter- 
ing the second digit. Line 3870 does 
this: SEC=0.5:GOSUB 110 sets the 
timer for half a second. If this is too 
short, you can increase the 0.5 toa 
larger number. Again, remember to 
SAVE the program if you want to make 
the changes permanent. A 


Andy Barton has been a frequent Antic 
contributor since 1984. To his credit are 
such programs as Son Of InfoBits and 
TYPO II, Antic’s type-in listing proof: 
reader. TYPO II has appeared in every 
issue since January 1985. 

Listing on page 34 
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SOFTWARE LIBRARY 


TYPING SPECIAL ATARI CHARACTERS 


The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina- 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [Z], press the [J] 
key—or [.\ ] on the 400/800—then 
release it before pressing the next 
key. (Press [ @] or [\.] again to turn 
off inverse.) For [ESC] key combina- 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ- 
ences between lookalike characters 
such as the slash key’s [/] and the 
[CONTROL] [F] symbol [ @]. 


NORMAL VIDEO 


FOR 
THIS 


[(¥] CTRL 
(B CTRL 
OHCTRL 
CTRL 
@) CTRL 
CTRL 
A CTRL 
NW CTRL 
l@ CTRL 
(a CTRL 
BW CTRL 
(3 CTRL 
F) CTRL 
fF) CTRL 
QJ CTRL 
&) CTRL 
BB CTRL 
CTRL 
FS} CTRL 


TYPE 
THIS 


A 
B 
C 
D 
_ 

G 
H 
I 

J 

K 
L 
M 
N 
O 
p 
Q 
R 


INVERSE VIDEO 


FOR TYPE FOR TYPE 
THIS THIS THIS THIS 


& CTRL ESC 
@ CTRL SHIFT 
fd CTRL DELETE 
O cTAL ESC 
CTRL SHIFT 
INSERT 

© cTRL CTRL 
CTRL TAB 
M ESC ESC ESC 
AB ESC CTRL - SHIFT 
MB ESC CTRL - TAB 
MH ESC CTRL + AL CTRL 
PA ESC CTRL ~« ACTRL ; 
McCTRL. MOHIET = 
MI CTRL ; ESC. CIAL. 2 
M) SHIFT = 
MHESC SHIFT 

CLEAR 


ESC DELETE 
[} ESC TAB 


TYPO If AUTOMATIC PROOFREADER 


TYPO If automatically proofreads Antic’s type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN]. 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 


then you’ve mistyped your line. 


To call back a previously typed line, type [*], then the line number, then [RETURN]. When the completed line ap- 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST ““D:FILENAME”,0,31999, then [RETURN], then NEW, then ENTER “D:FILENAME”’ 
then [RETURN]. Now you can SAVE or LIST your program to disk or cassette. 


Don't type the 
TYPO II Codes! 


WB/}32806 REM TYPO II BY ANDY BARTON 


VM|}32010 REM VER. 1.8 FOR ANTIC MAGAZINE 
‘DIM LINES C1260>2:CLOSE #2:CLO 


BN |} 328390 OPEN #2,4,0,"E":O0PEN #83, 
¢ “S" 1 POSITEGN 21. 


EM|/ 32050 TRAP 32040:POSITION 2,3:?7 


HS/}32020 CLR 


in a program line" 
HS|}32060 POSITION 1.4:?7 ' 

S:IF LI 

‘GOTO 326 


68 
LI 
LINES)2»9 
8 
Ee | 
AL 
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NES¢C1,13="%" THEN 
>POSITION 


N 
IGN 28186: ? “CONT 
CLINES? :POSITION 1,3:7 " "; 


»-4:LIST 


women 
7? “IMO 


“Type 


VAL CLIN 
»-4:LIST : 


INPUT #82;LINE 
NES=""* THEN POSITION 


Szcomert 
moztrtrow 


<¢ 
ir 


32106 POKE 842,13:STOP 

32116 POKE (842,12 

32120 7? “KS: POSITION 11,.1:7 “SUM 
«+: POSITION ‘2,18:LIST B 

32138 C=-@:ANS=C 

321486 POSITION 2,16: INPUT #3;LINES:IF 
LINES=""* THEN ? “LINE “;:B;°* DELETED':G 
OTO 328588 

32156 FOR D=1 TO LENCLINES) :C=C+1:ANS= 
ANS+cC¥ASCCLINES¢CD,D222:NEXT D 

321686 CODE=INTCANS’676) 

32178 CODE=ANS- CCODE*676) 

32188 HCODE=INTcCCODE/’26>) 

321980 LCODE=CODE- cHCODE*26)+65 

322800 HCODE=HCODE+65 

322186 POSITION 8.16:7 CHRSCHCODE) ;: CHRS 
CLCODE> 

32226 POSITION 2,13:?7? “If CODE does no 
= match Press BIMSWHNNM and edit line a 
bove."':GOTO 32858 
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YOU WON'T LOSE YOUR SHIRT TO THE 8-BIT CROUPIER 


ROULETTE, ATARI STYLE ........... 


LISTING 1 


MU 
RR 
Qu 
IL 
ap 


WS 


VU 


ae 
TQ 


Saas BCucxe 
rcxzx<x HBAH 
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2 REM ROULETTE 

4 REM BY MICHAEL PEMBERTON 

6 REM ¢€c31988, ANTIC PUBLISHING 

16 GRAPHICS 2:? #627 #6:7 86:7 

ROULETTE’':? :? :? s#6;°"° 

7? 8@6;"michael alu pemberton" 

267°" One Moment Please":? *" 

Screen Will Go Blank For i898 Seconds" 

16060 DIM COLRS¢C369,5TRCZ89,S5STREETCI29,L 

N6¢112,BETS$¢C370),S5SQ@REC€229,AS¢C13,S5PLITC 

58),COL¢C33,WHEEL C389) 

1160 GRIDFIX=41180: CHECKCASH=4216:PLACEB 

ET=4310: ZERO-4476 

126 COLRS="RBRBRBRBRBBRBRBRBRRBRBRBRBR 

BBRBRBRBR* 

136 REN BETTING MATRIX 

1460 BETS ci, 74)="SSS ‘eqfragshhtiiuijijivkkw 

1IXMMYUNNZOO8P PRY 4 BFA - QOPI Sale O RD ble < 

S7RRBERE! 'HSSa" 

141 BETS ¢75,148)="@~7SJGLONSEPPURRUTTMV 

UNX XMiZ ZB \RA“4 S669 aaMll a), 47S 2005 rinse 

3 > BSASSD Gwtec** 

142 BET$ 4149, 222) ="S&&S&S AKOMOCOOUGANSSN 

UUBWWEY Ym C C8116 @e@as&aSMlk CHt+N.AWNICM4 eee 

®: D0-DDesHaCHaHF XXb" 

143 BETS ¢223,296)="S36S ‘eqfragshhtiiuijiv 

KKWLIxMMYnn Zoo P PeeSSS00I00000FCCCECEE 

CeBeewaXXXXXXXXXXXM’ 

144 BETS C297,3703 =""SRERRePRRRreRReeeeee 

OPP RR eee eee eRPOOOOMEREPSSSSSse 

aC a at a 

143 BETS ¢C226,2203=CHRS$ (34) :BETS$¢€221,22 

12> =-CHRS¢C342:FOR X=285 TO 295:BETSCX,X> 

=CHRS ¢C1553 :NEXT X 

lal I=i1 TO 38:READ X:WHEEL CI2=X:NE 

150 REM CLEAR ARRAYS 

160 GOSUB 44786 

386 REM COLOR GAMEBOARD 

365 POKE 559,86 

3186 FOR I=@ TO 3:POKE 53256+1,3:NEXT I 

= 93260,1:I=PEEKC1@6):I=I-8:POKE 1 
6,1 

320 POKE 623,1:FOR J=@ TO 3:POKE 7604+J 

»S4:NMEXT J:POKE $4279.11: PMMNEM=1*256 

R J=-PMMNEMN TO PMMEMN+2047:POKE J.,8 


J 

R J=PMMEN+16061 TO PMMEN+1674:POK 
ace J+16,48:POKE J+32,2604:POK 
R- 


#6;°° 
Hm: 


NZO! 
+s x 


ee qj 
TT OUT NT FRUNNTANZ 


143:PQKE J#272,112:NEXT J 
J=PMMEM+1349 TO PMMEMN+1362:PO0K 
POKE J+#224,199:PQKE J+246,56:PO0 
6,199:NEXT J 

J=PMMEN+1829 TO PMMEMN+1842:POK 
-POKE J*+16,.28:POKE J+32,3: NEXT 


=) 
R 
? 
R J=PMMEMN+865 TO PMMNEMN+818:POKE 
K 
Pi 


wm oo 


s 


E J#+32,3:NEXT J 
PHICS @:POKE 716.196:POKE 559.6 


KE 53277,3 

OKE 53248,70:POKE 53249,102:POKE 
50,134:POKE 53251,166:POKE 53252,19 
EM GAME SETUP 

SH=500: OLDNO=0 

=2: UPOS=6 

TION 2,.12:? “CASH AVAILABLE: $ 
Cc 


URSOR MOVEMENT 


0 
0 
i] 
2 
0 
S 
2 
0 
2 
0 
0 
R 
0 


CKihAADMMAAN AC ACMAAMAMMA -W 


Cans WWN F* @® 
@Qeeec NOOO Owed 4. = De OMage 
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1666 POSITION HPOS+1,UP0S:?7 "ma"; 

tt IF STICKCO2=14 THEN ? “*; :UPOS=U 
“4. 

1626 IF STICK¢CO2=13 THEN ? **S*; :UPOS=U 

POS+1 


Don't type the 
TYPO II Codes! 


& 


TA 
FA 
DI 


HoT KMCZONAT 
ZuNG wdoeDsAtcor 


A eke IF STICKC@2=7 THEN ? >HPOS=HP 

+1 

he Seg IF STICK¢CO2=11 THEN 7? "@"; ;:HPOS=H 
=% 


1645 IF VUPOS<@ THEN UPOS=9:POSITION HP 


seppjee 3 


0S,8:2? "Ht; 

1047 IF UPOS>9 THEN UPOS=8:POSITION HP 
r 3 60 ees 

1648 IF HPOS>38 THEN HPOS=2:POSITION 3 

,UPOS:? “8; 

1049 IF HPOS<2 THEN HPOS=38:POSITION 3 


7,VPOS:? “hm; 

1656 FOR I=1 TO S:K=RNDCO2:NEXT I 

1666 IF STRIGCO2=6@ THEN X=PEEKC933:7 * 
@°;:GOTO 1688 

1665 IF PEEKCS32793=6 THEN 26186 

1676 GOTO 16186 

16735 REM INTERPRET BETS 

1686 IT=VUP0S*37+HPOS-1:BET=ASC CBETScCI,.I 
> > ] 


1685 IF BET=@8 THEN 7? “"°:GOSUB 41186:7 


"me; :6GOTO 18618 

1699 IF BET<39 THEN 12686 

11606 IF BET=39 THEN 12686 

1110 IF BET>39 AND BET<98 THEN 1318 

11286 IF BET>97 AND BET<161 THEN 1416 

1130 IF BET>1806 AND BET<113 THEN 14486 

1146 IF BET>112 AND BET<125 THEN 1480 

1156 IF BET>124 AND BET<147 THEN 15280 

1160 BET=BET-146:0N BET GOTO 15560,.15680 

-1576,15880,1596,1608,1616,1628.,1636 

1196 REM RECORD VARIOUS BETS 

12860 REM STRAIGHT BET 

1265 IF BET=37 THEN POSITION 2,.15:? " 

BBET ON @ cY/4N2°;:GOSUB 43180:G60TO 12486 

1266 IF BET=38 THEN POSITION 2,.15:?7 " 

BBET ON 66 CcY/N2"; :GOSUB 4310:GOTO 124 

12160 POSITION 2.,.15:7 “GHBET ON "“;BET;°* 
CY7N2"°; ;:GOSUB 43198 

12480 STRCBET2 =STRCBET®I +ANT:GOTO 180866 

1258 REM S LINE BET 

1260 POSITION 2,15:? “EEALINE BET c5S> « 

Y7N2°; ;GOSUB 43186 

1296 LNS=LNStANT:GOTO 1668 

136060 REM SPLIT BET 

1316 POSITION 2,15: BET=BET-39 

1320 IF BET<¢34 THEN ? “GHEISPLIT BET ON 

“;BETs",.";BET#3;"* CY“N3°"*; ;GOTO 13680 

1330 IF BET=S8 THEN ? “KEISPLIT BET ON 

6,060 c¥/7N3°"; :GOTO 13686 

13480 J=-BET-33: J=JtINTccJjJ-13723 

1350 ? “EEISPLIT BET ON “sJs"."s Jtis™ € 

Y7N2°'; 

1366 GOSUB 43186 

ee SPLITCBETI =SPLITCBET®2+AMT:GOTO 18 

14800 REM COLUMN BET 

14160 POSITION 2.15:? “SHIBET ON COLUMN 

*;BET-973;"°° CY7N3°; :GOSUB 4318 

aons COL <BET-973=COL CBET- 97> +AMT:GOTO 

1 

1436 REM STREET BET 

1440 BET=BET-106:POSITION 2,.15:? “KRIBE 

T ON STREET “;BET*#2*BET-23",.";3;BET#2*#BE 

T-is",";BET+2*BET;3"* CY7N2°; 

14S$6 GOSUB 4318 

aaa STREET CBET2 =STREETCBET3 +ANT: GOTO 

1476 REM LINE SIX BET 

1486 BET=BET-112: J=BET+t cBET- 1>*2: POSIT 

ION 2,15 

1485 ? “GMILINE BET ON "333°, "3s J#13 °°, °*3 

Oy eee ee ee eo ek ee ee a bo 

1496 GO0SUB 4316 
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1568 LN6CBET®=LNG6CBET®2 +AMNT: GOTO 186800 
151@ REM SQUARE BET 
BET+INT CCBET-12372): 


1526 BET=BET-124: j= 
POSITION 2,15:? “BOBET ON SQUARE "3 J5;" 
508 OE JjJ+4a;° CY7N2°"'; 


ft St, 53S 
1548 S@Q@RECBET2=-SQRECBET®2 +AMT: GOTO 18606 


1538 GOSUB 4310 
1550 POSITION 2,15:? “GEIBET ON 19-36 « 
Y7N2";:GOSUB 4310:HI=HI+AMT:GOTO 1000 


1566 POSITION 2,15:? “GHBET ON 1-18 CY 
“N32; :GOSUB 43180:LO=LOtAMNT:GOTO 1866 
1576 POSITION 2,.15:?7 “GRHBET ON ODD NUM 
BERS cY/N2"; :GOSUB 4316: 0DD=O0DD+ANT:GO 
TO 186686 

1586 POSITION 2.15:?7 “GEBET ON EVEN NU 
MBERS CY“N2"; ;GOSUB 4316: EVEN=EVEN+t+ANT 
°-GOTO 1668 

1596 POSITION 2.15:? “GEBET ON RED NUM 
BERS cY¥/N)2"; :GOSUB 4316:RED=REDtANT:GO 
TO 16686 

1668 POSITION 2,15:? “GEBET ON BLACK N 
UMBERS cY¥/N3";:GOSUB 4310:BLACK=BLACK+t 


AMNT:GOTO 186686 
1616 POSITION 2, 


15:? “GGBET ON 1ST DOZ 
EN CY/N2"; 


>GOSUB 4316:DZN1=D2ZN1+AMT:GO 


TO 186866 

1626 POSITION 2.15:? “GHBET ON 2ND DOZ 
a a ee 4316:DZN2=DZN2+AMT:G6O 
TO 1 


1636 POSITION 2,.15:? “GEBET ON 3RD DOZ 
EN CY/N2";:GOSUB 4316:DZN3=DZN3+AMT:GO 
TO 16686 

6 POSITION 2.12:? “BBGGDE'::POKE 75 
@ X=INTC266*RNDCO2>2:IF X<76 OR X19 
HEN 26286 

2 7? “WINNING NUMBER IS: “"; 

2624 FOR I=6 TO X-1:POSITION 21,12: J=¢ 
COLDNO+1I> -38* INT CCOLDNO+1I93736323+1:7 ™ 


IF WHEEL ¢J>=37 THEN ? “@":G0TO 20 
IF WHEEL ¢J>=38 THEN ? “@@":G60TO 2 


2630 ? WHEEL CJ? 
FOR DELAY=1 TO S!:NEXT DELAY: NEXT 


NUM=WHEEL ¢CJ2 :OLDNO=J:POKE 752.8 
@ REM CALCULATE WINNINGS 
S POSITION 2.14 
@ REM STRAIGHTS 
@ IF STRCNUM> THEN WIN=WIN+35*STRCN 
> CASH=CASH+STRCNUM?:? “WIN STRAIGHT 
Ti"; 35*STRC 
EM FIVE LINE 


‘. NUM? 

IF LNS AND cNUM<4 OR NUMN>362 THEN 
=WIN+6*LNS:CASH=-CASHt+LNS:? “WIN LI 
ET c«S23:"; NS 

REM SPLITS 

FOR I=-1 TO 33 

NOT cSPLITCI>® AND cCNUM=I OR N 
>> THEN 38665 
IN=WINt+17*SPLITCI32 :CASH=CASH+SPL 
“WIN SPLIT BET: *;17*SPLITcCI> 


I 
R I=34 TO $7: J=1I-33: J=JtINTccJ- 


NOT cSPLIT‘CI>® AND CNUM=J OR N 
> THEN 38672 
N=WIN+17*SPLITcCI2 : CASH=CASH+t+SPL 

"WIN SPLIT BET: ";17*SPLITCI92 


XT I 

NOT cSPLITCS8>2 AND CNUM=37 OR 
>> THEN 38696 
IN=WIN+17*SPLITCS82 :CASH=CASH+SP 
"WIN SPLIT: "*;17*SPLITCS8) 
REM DROP OUT 8 AND 8686 
96 IF NUM>36 THEN 34186 
@@ REM COLUMNS 
16 IF INTCNUMN’32=NUMN’3 AND COLC3> TH 
N WIN=WIN+2*COL C32 :CASH=CASH+COL C32:7 
“WIN COLUMN 3 BET:*;2*COL C32 
126 IF INTC CNUM+12732=CNUMN+1373 AND C 
OL¢2>2 THEN WIN=WIN+2*COL C2) :CASH=CASH+ 
COL¢2>:? “WIN COLUMN 2 BET:";2*COL C2) 
3130 IF INTC CNUM+2)9739=CNUMN+2273 AND C 
OL¢c1> THEN WIN=WIN+2*COL C12 :CASH=CASH+ 
COL¢c12:? “WIN COLUMN 1 BET: *;2*COL C19 


N HIN 
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KB! 3148 REM STREETS 
CJ| 3150 STCNT=NUM: 1=0 
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TO 31686 

STREETCI>® THEN WIN=WINt11*5STRE 
ASH=CASHt+STREETCI9: 7? “WIN STREE 
ae 


3210 IF LN6¢J> AND 
WIN=WIN+S*LN6G CJ> 
WIN LINE BET: 


cI=J OR I=J+1> THEN 
*>CASH=CASHtLN6CJ9:7 " 
";S%*LN6CJ2 


32260 NEXT J 
M SQUARES 
R I=-i TO 22 
= T €¢€i-13.423 
REcI> AND cNUM=1+SQ@ OR NUM=I 
1 cad UM=1+S@+3 OR NUM=1+SQ@+4)> THE 
S 308 
X I 
M HIGH/LOW 
AND NUMN>18 AND NUM<3?7? THEN 
+ :CASH-=-CASHt+HI:? “WIN 19-36 B 


oa a 


“SDDHH IH DADH OHH DZOXH SHH DSC RTS 


AND NUM<19 THEN WIN=WIN+LO: 


~¢mnm OOF SFr Fz aa UR 


Moen OAM SnNOSniMDS Waza " MoOonNoSom 
OCoOrroc+mommec ooo ¢+o eee i AZOZe 


=CASH+LO:?7? “WIN 1-18 BET:";LO 
M ODD’EVEN 
D AND INT CNUM’22<NUMN’2 THEN 
4 . D:CASH=CASHt+ODD:?7? “WIN ODD B 
3 
EN AND INT CNUMN’2)=NUMN’2 THEN 
=WINtEVEN: CASH=CASHtEVEN:? “WIN EV 
ET:"*;EVEN 
M BLACK/RED 
RED AND COLRS CNUM,.NUM2="R" THE 
N a RED: CASH=CASH+t+RED:? “WIN RED 
BLACK AND COLRSCNUM,.NUM?2="B" T 
WIN=WIN+BLACK:CASH=CASH+BLACK:? “W 
LACK BET:*;BLACK 
M DOZENS 


OOom OCO4HOOCZSO  1/100TO 1 oooce +0o0oo 


F DZN1i AND NUM<13 THEN WIN=WIN+t+2 

N1i:CASH=CASH+DZN1:? “WIN 15T DOZEN 
BET: ";2*DZN1 

3396 IF DZN2 AND NUM>11 AND NUM<25 THE 

N WIN=WIN+2*DZN2:CASH=CASH+DZN2:? “WIN 
Z2ND DOZEN BET:*;2*DZN2 

3466 IF DZN3 AND NUM>24 THEN WIN=WIN+2 

*DZN3:CASH=CASH+DZN3:? “WIN 3RD DOZEN 
BET: *;2*DZN3 

3418 GOSUB 44786 

3566 REM DISPLAY WINNINGS 


KWWHEW ZWWM WAMEWWOWMEWWWS tana 


COWWSZMWD WWZEWAHWWDWEHNNDY UNNNNY 
NON ZOMOEOh BMW ZNPUO+ ZOOnoannaw 


3510 7? “CASH=";CASH;" WINNINGS="; WIN 

ye lll CASHt+WIN:WIN=@6: IF CASH=6 THE 
3536 7? “PRESS RETURN TO CONTINUE':? "0 
R ENTER ‘Q@' TO QUIT’; : INPUT AS 

35480 IF AS<>"Q@" THEN 568 

3558 IF CASH>S@O THEN ? :? “RDMERONUED 

me. YOU MMH $°;CasSH-S86:END 

3560 IF CASH<SO6@ THEN 7? :?7 “KINKI. YOU 
Mieae $°;586-CAaASH: END 

35780 2? : “Tiara. IT COULD BE 
WORSE. : END 

4160 REM GRIDFIX SUBROUTINE 

eal X>64 AND X<91 THEN X=X-64:60TO 

4120 IF X<64 THEN X=X+32 

Eat POSITION HPOS,UPOS:? CHRSCX); :RET 
426@ REM CHECK CASH SUBROUTINE 

4218 IF CASH-AMT<@ THEN ? “QGNOT ENOUGH 
MONEY": GOSUB 4116:G60TO 42386 

4226 CASH=CASH-AMT: POSITION 2,12:?7 “CA 
SH AVAILABLE: $ Seeee"; CASH 

4236 RETURN 

4366 REM PLACE BET SUBROUTINE 

43805 TRAP 45286 

4310 INPUT A$S:IF As<>"¥" THEN GOSUB 41 
16:7 "“&";:GOTO 1618 

4326 7? “AMOUNT';: : INPUT ANT: IF AMT=8 TH 
EN GOSUB 41106:7 "@";:GOTO 16018 

433@ GOSUB 4218 

4346 RETURN 

44686 REM GONE BROKE 

4416 ? “SORRY. YOU'RE BROKE':? “DTRY A 
ri CY7N3"; : INPUT AS:IF AS="¥" THEN 4 


END 
REM SQUARE WIN SUBROUTINE 
WIN=WIN+8*S@QRE cI> :CASH=CASH+t+SQORE « 


aaa 
AAD 
AWN 
eooe® 
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i "lla BET: *;8*S@QRE cI» 


> EVEN=60: BLACK=@:RE 
 DZNI= @:COL¢ci»=@:COL¢ 


=6 
0 38:STRCI2=O:NEXT I:FOR 
EETCI2=@:NEXT I:FOR I=1 
><NEXT I 
2:SQRECI2=O:NEXT I: FO 
CI2=O:NEXT I 


E 

2 

T 
RROR 
41 
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16:GOTO 18660 
EM DRA RD 
59616 ? “B’:POSITION 2,86:7 
SRIRRRIRRRIRR RRR) 
20150180 2102402 70360330360" 
CM|/5026 POSITION 2,2:7 “ff 
SHGCGRQGGRRRRRSRSRRSR) BRRMZ0508011n141 
7M2EN23026029N320350" 


x= 

€ 
CALADAH ANTAAAH 
eougd AGCHAY | AAAY 


AUTBD 


H3H6En9n1 


AH|5630 POSITION 2.4:? “OG REREsSS6S856H8 
SSSR SHSSRSe 0 imean7ni1emisns 
6N1i9N022U250280310340" 

MB|}5040 POSITION 2.6:? “RRRRERSeeeeeReeRe 
SRR RRR SRR RRS eee) © 15T 12 DO 2N 
D i2 OH 3RD 12 m 

NU|S050 POSITION 2,8:?7 * GRRE RRR RRR RE 
SRI RS RRR RRS) H1i-i18MEVUND RED 

OBLACKH ODD 19-360" 
NA|}S668 POSITION 2,16:? * GRAB RRR RRA 


SREBRRRRRRRRRSRRRRSRSRF)": RETURN 
FA|}61360 REM WHEEL CONFIGURATION 


Q7T/6146 DATA 38.27.,16,25,29,12,8,19,31.,18 
37,28,.9,26,386 
7:20.32; 17,5,22,34,15,3,2 


,6,21,33,16,4,23,35, 14,2, 
NX/6156 DATA 11, 
4,36,13,1 


LISTING 2 


Q@P|/16@ REM ROULETTE, LISTING 2 

IL|26@ REM BY MICHAEL PEMBERTON 

QH|30@ REM ¢c31988, ANTIC PUBLISHING 

OD| 35 REM CREATES LINES 1460-144 

EV|}46 REM CLINES 10-250 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 

IJ|}5@ REM CHANGE LINE 78 AS NECESSARY.> 

PR|60 DIM FNS ¢26), TEMPS <202,AR$¢C93>:DPL=P 
EEK¢C10592) :POKE 16592,255 

WO| 70 FNS="D:LINES.LST*:REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 

RD =e ? “Disk or Massette?"::POKE 764,25 
96 IF NOT cPEEKC7643=-18 OR PEEK¢C764)= 
582 THEN 9 
166 IF PEEKC7642=18 THEN FNS$="C:* 
110 POKE 764,255:GRAPHICS 6:7 * AN 
TIC'S GENERIC BASIC LOADER" 

MY|/126 ? ,"BY CHARLES JACKSON’ 

KB/130 POKE 160592,DPL: TRAP 2686 

PU|/140 2? :? :? “Creating “;FNS:? *...plea 
se stand by.* 

LW 7H RESTORE :READ LN: LM=LN: DIM ASCLN?D: 

=4 


© (pete eae ba al rl te) 


6 RRR 


CN 


AY 


166 ARS="**:READ ARS 

eee X=4 TO LENCARS? STEP 3:POKE 75 

186 LM=LMN-1:POSITION 184, 1@: ms "*<¢Countdo 

wn.-.-T-"; INT CLM41@03 35°") 

196 AS CC, C2 =CHRS CUAL CARS CX, X+2999 :C=C# 

1:NEXT X:GOTO 168 

266 IF PEEKC1953=5 THEN ? :?7 :? “TOO 

a eae LINES!":? “CANNOT CREATE FIL 

210 IF C<LNti THEN ? :? "TOO FEW DATA 
LINES!**:? “CANNOT CREATE FILE!*: END 

226 IF FNS="C:"* THEN ? :? * Prepare ca 
ssette, press CRETURNI" 

230 OPEN 2#1,8,6,FNS 

246 POKE 766.,1:7 #1;A$;:POKE 766,80 

256 CLOSE #1: GRAPHICS Gs7 & 

1866 DATA 471 

10186 DATA 849685204863206680698084036048080 

49044055052641061834000000000039161113 

18021141603115104180411616051905 

160286 DATA 1171866180611816710711918081081 

261869169121118611812211111112311211280098 

66663780378080680386426066450609 

1636 DATA 8948612612651615615054801801806 

> 76216218606080248624063027027866836080380069 

86330338072636803618008034155049 

186496 DATA @520498032666669808490360400550 

5$304404906528056804166103400080370370800074 

1266761286781308086686132082 

16560 DATA 868213408468413660866861380888 

881480698690142809286921448094094146096096 

80666006809 769780800002641005044 

1666 DATA 68086476116110506140140536170 

1705662002665 9023802306202602606502908029 

6688632863207103580358099034155 

18076 DATA 84986520586632666869884803660400 

490526570644 6500560500410618634660038038 

0606673125075127677129879679 

10860 DATA 1310810811330830831350850851 

3708 7687139089089141809160911438093093145 

B9SB9S6GR008800388638800080801048 

1696 DATA 860404306704601001604901301380 

22016616655019019058022022061025025064 

62802806786310318076088088098 

11608 DATA 06341550490520510320660690848 

3604660500500516440506576540410610340080 

660006603918011131021141863115 

1116 DATA 104164116180510511710618061181 

671671191081808126169169121110110122111 

11112311211286000600000800608 

1126 DATA 1531531531531531531531530001 

2941541541541541541541541541541540600088 

O8EO68SE8BO8E8G8E8G8ESEEE8EEO088 

11360 DATA 8088000634155804980520520320668 

69084036040056057055044051055048041061 

634808080 0GGG8860000G00008880 

11486 DATA BeBBbeeeeeGGbG0G0G0GRR000888 

B6eeeGo0GRGG0G000G000G0GGe000G00000088 

eeeeeeeeeeesceaceeseeeeeeeeRsR 

1150 DATA 8689606001481481481480001501501 

59866601511511511511518000152152152152152 

60001491491491491498600147147 

11680 DATA 147147147000634155 
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LISTING y | TYPO II Codes! 

HT| 1 REM REAL-WORLD INTERFACE 

PL| 2 REM BY JOHN W. LITTLE 

QR; 3 REM ¢€cd1988., ANTIC PUBLISHING 

DN| S A&SB6O=6:REM CHANGE TO A 1 FOR PORTB O 
N AN ATARI 4007866 

VG|6 IF NOT cA8@6=6 OR ABOG=1> THEN ? “T 
YPING ERROR LINE 5!03)": END 

BN| 10 GRAPHICS 2+16:7 26:7 %6:7 #6;" R 
EAL"*:? 86:7 86;°"° WORLD’:? 86:7 26;" 

INTERFACE* 
28 


Don't type the 


von 


REAL-WORLD INTERFACE .......... 


12 RESTORE 70066:FOR X=1664 TO 1761:REA 
D BYTE:POKE X,.BYTE:NEXT X:X=USR(1664) 

20 POKE ?752.,.1:REM KILL CURSOR 

386 REM DECLARATIONS 

96 DIM YN$¢c12:LET ON=0:OFF=1 

66 PORTA=54016: PACTL=54018: ORIG=PEEKCS 
4618+A8OO) : CONSOL=53279 

8@ REM INITIALIZE CLOCK 

1606 ? “R':POSITION 4.2:?7? "DO YOU WISH 

TO RESET THE CLOCK"; :¥YNS=" “: INPUT YNS 
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IN 


<4 om texo Foe cc WHS 
cvTcow VO wera 2rernt ec< 


c< 
z=x=x 


= £ KR 
zx KX 


BX 
SS 


RL 


110 IF ASC CYNS$)<>89 THEN IF ASC CYNS)<> 
121 THEN 1360:REMN Y OR yY 

1280 GOTO i158 

130 IF ASC CYNS)<>78 THEN IF ASC CYNS) <> 
110 THEN 160:REN N or nr 

146 GOTO 3866 

150 ? “8: POSITION 11,2:?7 “BGR 
E) | CiL/O\C| K phe ae er a 

166 HOUR=-6:MIN=-@6:SEC=86 

1780 ? “Correct Hour ¢c@-2323"; : TRAP 186:1 
NPUT HOUR: ? 

ay or Minute"; : TRAP 196: INPUT 
See “Correct Second"; : TRAP 266: INPUT 
28660 7 “8: POSITION 13,.2:?7 

O}C| Kh 

210 POSITION 9,.23:7 “Press BEDE to co 


ntinue" 
228 POKE 18,MIN:POKE 19,SEC:POKE 26,8: 
POKE 5 allies 268,6:POKE 267.,HOUR: X= 


USR C1664) 

224 REM DISPLAY CLOCK 

238 POSITION 16.16:POKE 752.1 

231 T=PEEK¢C2072:1F T>9 THEN ? T3:? ‘:" 
;:GOTO 233 

Zant “Et? FEST WSs 

233 T=PEEKC183:IF T>9 THEN ? Ts:? “2% 
:GOTO 235 

aae 2 PEs t7? Fett ey 

235 T=PEEKC192:IF T>9 THEN ? T:GOTO 24 
8 

ane Tf *Otsi7 Ff 

248 IF PEEKCCONSOL2=7 THEN 238 

276 REM MAIN PROGRAN 

38960 7? "“®'*:POKE 710,.60:POKE 82.1:REM SET 
UP SCREEN 

326 REM CONFIG. PORT FOR OUTPUT 

340 POKE PACTL+AB8E6,.0RIG-4:POKE PORTA+ 
ABB6G@,.255:POKE PACTL+A8GG, ORIG 

366 REM GET TINING PARAMETERS 

386 GOSUB 888 

396 IF TIMEON=8 THEN 126@0:REM MANUAL O 
PERATION 

466 GOSUB 1118 

463 REM START TIMING 

410 POSITION $.23:?7 “Press any key to 
begin timing"; :POKE 764,.255:POQKE 752,1 

411 IF PEEK¢C7643=255 THEN GOSUB 84860:60 

SUB 1416:GOTO 411 

412 POSITION $.23:? " 

42@ REM IS CURRENT TIME BETWEEN EARLIE 
ST AND LATEST START TIMES? 

440 IF EARLYHOUR>PEEKC267> THEN GOSUB 
1416:GOSUB 846:G0TO 4486 

45@ IF LATEHOUR>PEEKC2607>3 THEN 588 

460 GOSUB 8486:GO0SUB 1410:GOTO 448 

486 REM RELAY GPERATION LOOP 

50@ LET ONOFF=0N:SEC=SECON: MIN=MINON:H 

R=HRON:GOSUB 688 

510 LET ONOFF=OFF:SEC=SECOFF :MIN=MINOF 
F:HR=HROFF:GOSUB 68686 

5286 GOTO 448 

$86 REM TIMING SUBROUTINE 

6866 STARTMINS=PEEK C18) :STARTSECS=PEEK¢C 
Pe ee ee GET CURREN 

616 POKE PORTAt+ASOSG,.ONOFF: REM CLOSE OR 
OPEN RELAY 

620 REM ADJUST COUNTER IF #0F SECS TO 


— + #0F SECS CURRENTLY ON CLOCK > 


646 IF SEC+STARTSECS>S9 THEN STARTMINS 
=STARTMINS+1: LET ENDSEC=SEC+STARTSECS- 
680:G0TO 696 

65@ LET ENDSEC=SEC+STARTSECS 

676 REM ADJUST COUNTER IF #0F SECS TO 
+ aie + #0F SECS CURRENTLY ON CLOCK > 
690 IF MIN*+STARTMINS>S9 THEN STARTHOUR 
=STARTHOUR+1:LET ENDMIN=MIN+t+STARTMINS- 
660:G60TO 7865 

766 LET ENDMIN=MINtSTARTMINS 

765 LET ENDHOUR=HR+*+STARTHOUR 

716 IF ENDHOUR<24 THEN 778 

720 LET ENDHOUR=ENDHOUR- 24 

729 REM WAIT FOR CURRENT HOUR TO CROSS 
MIDNIGHT AND BECOME "6". 

730 IF PEEKC2672>ENDHOUR THEN GOSUB 8&4 
6@:GOSUB 1416:GOTO 736 
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75@ REM WAIT FOR HOURS. MINS, SECS TO 
COUNT DOWN 

270 GOSUB 640:1F PEEKCCONSOL><? THEN 1 
786 IF ENDHOUR>PEEK¢C207) THEN 778 

790 GOSUB 640:IF PEEKCCONSOL><? THEN 1 
860 IF ENDMIN>PEEK(C18> THEN 798 

810 GOSUB 640:IF PEEKCCONSOL><? THEN 1 
826 IF ENDSEC>PEEKC19> THEN 818 

83@ RETURN 

835 REN DISPLAY TIME 

846 POSITION 16, 

B41 T=PEEK C2079 71F 129 THEN 2 T:#? "3" 
;?GOTO 843 

B42 7 "O52? Tst? wre; 

843 T=PEEKC18>2:I1F T>9 THEN 7 T3:? "2" 
‘GOTO 845 

844 2 "O52? T3232 28; 

845 T=PEEKC192:IF T>9 THEN ? T:GOTO 84 
846 7 "O"5:7 T 

847 RETURN 

868 REM INPUT DATA SUBROUTINES 

886 POSITION 1,6:? “------------------ 
881 POSITION 7.7:? “PRESS M@MMMN TO DI 
SREGARD.**:7 

882 POSITION 1.,8:? "------------------ 
898 TRAP 948 

968 ? “EARLIEST HOUR TO TURN WATER ON" 


;:INPUT EARLYHOUR 

916 TRAP 938 

9286 7? “LATEST HOUR TO TURN WATER ON"; : 
INPUT LATEHOUR:GOTO 9886 


930 2 “Gi:? “K:GOTO 880 

948 EARLYHOUR=@:LATEHOUR=24 

950 7 “R":POSITION 1,2:7 “------------ 
966 POSITION 1,3:? “@ NO EARLIEST AND 
LATEST START TIMES @ 

970 2 Mann nn nn nnn 
------- “:G0T0 1010 

980 2? “":POSITION 1,2:7? %------------ 
a ceeeetohapepabadabetabaatabebatebedatetedats “:POSITION 1 
,3:? “MEARLIEST START:";EARLYHOUR; 

998 POSITION 20,3:? “M@ LATEST START:":; 
LATEHOUR;:" m* 

1000 ? "------------------------------ 
1016 7? :? “PRESS (iaii0INi) 3 TIMES TO BYP 
ASS TIMER.":? 

1828 HRON=0:MINON=@: SECON=0 

1621 TRAP 183 

1922 ? “NUMBER OF HOURS WATER WILL BE 
1623 INPUT HRON 

1638 TRAP 1068 

1640 7 “NUMBER OF MINUTES WATER WILL B 


1850 INPUT MINON 

1866 TRAP 18698 

at ? “NUMBER OF SECONDS WATER WILL B 
18688 INPUT SECON 

18986 TIMEOQN=HRON+t+MINON+SECON: REM For t 
est in line 398 

1166 RETURN 

11106 HROFF-@:MINOFF-6: SECOFF=-8@ 

1111 TRAP 11286 


1112 7? :? “NUMBER OF HOURS WATER WILL 
Se ores 

1113 INPUT HROFF 

1126 TRAP 11586 

“ae “NUMBER OF MINUTES WATER WILL B 
1146 INPUT MINOFF 

115@ TRAP 11886 

oo “NUMBER OF SECONDS WATER WILL B 


1176 INPUT SECOFF 
1188 TIMEOFF-HROFF¢MINGFF+SECOFF:REM F 
or test in line 119 


1190 IF TIMEOFF=08 THEN ? ‘i's Rt: 7 —_ 
u muSt Specify an ‘OFF* period in 
rder to use the timer.":POP :GOTO 380. 


1266 7? :? “(him TO STOP CYCLE WITH W 
continued on next page 
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b= 
a) 


Sort SOS HOZIoO OevuMD 
T6090 AM<S Ferz4 SFaxouw 


ATER ON.*:? “Bia TO STOP CYCLE WITH 
WATER OFF." 

1216 ? ‘Bia 
WITHOUT RESETTING CLOCK.* 

1226 RETURN 

1246 REM MANUAL ON’OFF ROUTINES 
1266 LET ONOFF=0N 

12768 TRAP 12786 


12860 7? :? “Do you wiSh to turn the wat 
er on"; 

1296 GOSUB 13586 

1306 TRAP 1308 

1316 LET ONOFF=OFF 

1320 7? “Do you wiSh to turn the water 
Off'’; 


1338 GOSUB 13580 

1346 GRAPHICS 6:END 

1356 YNS="" “: INPUT YNS 

1360 IF ASC CYNS)<>89 THEN IF ASC CYNS?< 
>121 THEN 1390:REM Y OR y 

1376 POKE PORTA+A8O0, ONOFF 

1386 RETURN 

1396 IF ASCCYNS)<>78 THEN IF ASC CYNS»)< 
7116 THEN POP :GOTO 65536:REM N or n.. 


TO RE-START PROGRAM: ? *. 


AH 
MF 
LJ 


AL 


65536 IS ERROR TO TRAP 

148660 RETURN 

1405 REM EARLY EXIT 

141@ IF PEEKCCONSOL2=3 THEN POKE PORTA 


a. >POSITION 1,20:POKE 752,86 


1426 IF PEEKCCONSOL®=5 THEN POKE PORTA 
oa >POSITION 1,26:POKE 752, 
6:EN 

oe IF PEEKCCONSOL®)=6 THEN POP :GOTO 
386 


1446 RETURN 


bs 1,60,144,4 
19,165,19,201,60,144, 
, 36,18, 165,18 

76030 DATA 2601,66.144,16,169,0,1 
36,267,165,207,201,24,144,4,169, 
207,76,98,228 


WONOWN: 
~N WHY NFP WHO 


3 
ei 
8 


’ 


SHADOWS AND REFLECTIONS FOR YOUR 8-BIT GRAPHICS 


HARD-WIRED RAY TRACING 


JW 
va 
QH 


LISTING 1 or 
TYPO II Codes! 
1@ REM HARD-WIRED RAY ee 
26 REM BY MICHAEL BJIORKN 
36 REM ¢€c31988, ANTIC PUBLISHING 
40 BRKX=cPEEKCS32793<>3») 


1666 GOSUB 1668 

10160 FOR SY¥=1 TO i191 

1626 FOR SX=8@.5 TO 318.5 STEP 2 

had TRAP 13406:SXSCR=€5X-8.5972:SYSCR= 
1646 POKE 559.8: a PEEK c532793= 3 THEN 
POKE SS9,0LDVALU 

1650 REM SPHERE TT 

1060 A1=cSX-UXI*CSKX-UXI+CSY-UYI*NCSY-UY 
>+UZ*HUZ 

16760 B1=2* CCSX-UXI*MCUX-CXI+CSY-UYI*MCUY 
-CY2-UZ*cUZ-CZ)> . 
1686 Ci=CUX-CXI*CUX-CXI+cCUY-CYI*CUY-CY 
I+ C€UZ-CZ2*CUZ-CZ>-R*R 

eee ARG=B1*B1 - 4*A1i*C1:IF ARG<=6 THEN 
11680 REM SPHERE PIXEL 

111860 SCALE1=c-81+SQRCARG) 27 c«2%*A19 

1120 DX=SCALE1*cSX-UX>2 :DY=SCALE1I*cSY-V 
Y2 :DZ=-SCALE1*UZ 

a RX=DX*+UX-CX:RY=DY+UY-CY:RZ=DZ2+UZ- 
1148 DDOTN=cDX*RX+DY*#RY+DZ*RZI-/R 

eae SCALE2=€191-CY-RY) 7 CDY+2*DDOTN#RY 
7R> 

1166 IF SCALE2>=8 THEN 1228 

1176 REM REFLECTED RAY INTERSECTS ROOF 


SCALE2=cO@-CY-RY2 7 CDY+2*DDOTN*®RY/R 


1196 DHTEMP=DHROF : SMTEMPLO=SMROFLO: SMT 
EMPHI=SMROFHI 

1266 GOSUB 1420:G0TO 1330 

——- REM REFLECTED RAY INTERSECTS FLOO 


1220 DHTEMP=DHFLR: SMTEMPLO=SMFLRLO: SMT 
EMPHI=SMFLRHI 

1238 GOSUB 1426:GO0TO 1330 

REM NOT SPHERE PIXEL 


12350 DX=SX-UX:DY=SY-UY:DZ=-UZ 

1266 IF SY<=HORIZON THEN 13068 

1270 A=C191-VUY>)/7DY:REM BELOW HORIZON 
1286 DHTEMP=DHFLR: SMTEMPLO=SMFLRLO: SMT 
EMPHI=SMFLRHI 

1290 GOSUB 15580:GOTO 13386 

1306 A=cB-VY2 “DY:REM ABOVE HORIZON 
13186 DHTEMP=DHROF : SNTEMPLO=SMROFLO: SMT 


& 


aPo<<2en 
AABSUGUD 
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EMPHI=SMROFHI 

1326 GOSUB 15586 

1330 POKE 77,0:REM KILL ATTRACT MODE 
1346 NEXT SX 

1356 NEXT SY 

1366 REM SAVE SCREEN 

1370 LODSc3,3>2=CHRSc1i1>9 

1386 SLOC=PEEKC88>+PEEK C89)» *256:CLOSE 
#1: O0PEN #1,8,6,."D:TRACE.PIC’:GOSUB 8866 
a : 
1390 X=USRCADRCLODS),SLOC, 7686) :PUT %1 
»PEEKC7123:FOR X=7608 TO 716:PUT 21, PEE 
KCX2 :>NEXT X:CLOSE #1 

1466 GRAPHICS 6:? “DONE!*:END 

14180 REM REFLECTION ROUTINE 

1420 DRX=DX-2*DDOTN*RX/“R:DRY=DY-2*DDOT 
N*RY“R: DRZ=DZ-2*DDOTN*RZ/R 

1436 FX=CX+RX+SCALE2*DRX+FXDISP: FY=CY+ 
RY*SCALEZ*DRY: F2=CZ+RZ2+SCALE2*DRZ+F ZD1 
1440 FXSCR=CCFX-INT CFX“7318.53%318.5)9-Q 
-S972:FZSCR=191- CFZ-INT CFZ71913*1919 
1430 IF FXSCR<=6 THEN FXSCR=6 

1466 IF FXSCR>=160 THEN FXSCR=160 

1476 IF FZSCR<=6 THEN FZSCR=86 

1486 IF FZSCR>=191 THEN FZSCR=191 

14960 POKE $61,DHTEMP:POKE 88,SMTEMPLO: 
POKE 89,.SMTEMPHI 

1368 LOCATE FXSCR,.FZSER,. BYTE 

1516 POKE 561,DHSCR:POKE 88&.,SMSCRLO:PO 
KE 89.,.SMSCRHI 

1526 IF YDM THEN BYTE=BYTE-1:1F BYTE<= 
6 THEN BYTE=8 

1336 COLOR BYTE:PLOT SXSCR,.SYSCR:FLAG= 
1:RETURN 

15348 REM FLOOR OR CEILING ROUTINE 

15506 FX=UX+A*DX+FXDISP: FY=UY+Ax*DY:FZ=U 
Z+A*DZ+FZDISP 

15660 FXSCR=ccFX-INTCFX7318.53*318.53-@ 
-53972:FZSCR=191- cFZ2-INTCFZ71913*1919 
15376 IF FXSCR<=@ THEN FXSCR=@6 


IF FXSCR>=166 THEN FXSCR=1606 

IF FZ2SCR<=6 THEN FZ2SCR=@ 

IF FZ2SCR>=191 THEN FZSCR=191 

POKE 561,DHTEMP:POKE 88,SMTEMPLO: 
89, SMTEMPHI 

LOCATE FXSCR,.FZSCR, BYTE 

POKE 561,DHSCR:POKE 88,S5MSCRLO:PO 
KE 89,SMSCRHI 

a COLOR BYTE:PLOT SXSCR,.SYSCR:RETUR 


ANTIC SOFTWARE LIBRARY 


1656 REM ENTER VIEWPOINT COORDINATES 
aoe cca 7566: TRAP 16986: UX=160:UY=-96 
1665 POSITION 8.5:?7? * Viewpoint Coordi 
nates:"**:POSITION 7,6:?7? “c«Where are you 
Standings?>°* 

1676 7? :? “Input UX,UY,UZi:? * O<UX<3 
19:7? " @<UY<191":7 * UZ<B":GOSUB 8668 
16860 INPUT UX,VUY.,UZ 

1696 IF UX<@ OR VUX>319 OR VY<@ OR VUYO1 
oo UZ>@ THEN ? “Coord ErrorQWi'':GOoTO 
1760 REM SPHERE COORDINATES 

17605 TRAP 1746:CX=1607:CY=64:C2Z2=95.5 
1716 GOSUB 7S5S@6:POSITION 3.,.5:?7 “Where 
is the center of the sphere?" 

4718 POSITION 13,.7:7 "¢€ GX.» CY & CZ 3° 
72 

1726 INPUT CX,CY,CZ 

1730 REM CIRCLE RADIUS 

17480 R=INTCCY723: TRAP 1766:7 “Kee 
Radius of the Sphere":? :? "c@-"“;CY¥3"> 


1750 INPUT R 


1766 TRAP 18698:IF CY-R<@ OR CY+#R>191 T 
HEN ? “Coord ErrorQWii":GOTO 17865 

1776 FXDISP=6@:FZDISP=-8:GOSUB 758080:POSI 
TION 8,.5:7 “Input FXDISP, FZDISP:":? 
178@ INPUT FXDISP,FZDISP 

1798 REM READ .PIC FILE 

1866 TRAP 480066:PICSIZE-76886:GOSUB 218 
6@:REM INIT ML LOADER 

1810 DIM J$c18>»2,FILE$¢Ci8>,FNAMFLRS C18) 

» FNAMROFS c18>,MILODS$ «342>) 

1812 ? “eee Use the DIMMING Featurec 
Y“N2°; :INPUT JS$:IF NOT cJS="¥" OR JS= 
"y" OR JS="n" OR JS="N">3 THEN 1812 
1814 YDMN=6:IF JS="¥" OR JS="¥"" THEN YD 
M=1 
1820 ? "K FLOOR FILENAME" 

1838 GOSUB 2118 

1846 FNAMFLRS=FILES 

1850 ? “*s CEILING FILENAME" 

1866 GOSUB 2118 

1876 FNAMROFS=FILES 

1886 REM LOAD FLOOR 

= POKE 1806,PEEK¢C748) :MEMTOP=PEEKcC1i8@ 
> 

1966 GRAPHICS 15+16:G0SUB 88600:DHFLR=P 

EEK¢cS61) 

19186 SMFLRLO-PEEKC88) :SMFLRHI=PEEKC899) 


>SMFLR=SMFLRLO+256*SMFLRHI:POKE 559,34 


1926 CLOSE #1:O0PEN 2#1,6,80,FNAMFLRS: INP 
UT #1,MILODS:CLOSE #1 
1921 OPEN #1, ) lean IF MILODS cis 


»173="662" T 2 
Eo. #1:GOTO 1948 


Cc 
4 
; 
R >,SMFLR,~PICSIZE) : CL 


N 
Q: 
C 


»< 
| 

i—< 
wi 
aa 
a 
D> 

ao oo.2: 


i 
c 
0 
O 
MTOP-32 

+16:G0SUB 8000: DHROF=P 


2 
MROFLO=PEEKC8&8>) :SMROFHI=PEEKC899) 
OF=SMROFLO+256*SMROFHI:POKE 559,34 


1976 CLOSE #1:O0PEN #1,6,.60,FNAMROFS: INP 
UT #1,MILODS:CLOSE #1 


F 
L 
D 
F 
T 
i 


L 
0 
E 
) 


PMP eP RO 


1971 OPEN #1,4.,.0,.FNAMROFS:IF MILODS C15 

2172="062"" THEN 1976 . 

1975 GOSUB 76@@0:CLOSE #1:G0TO 1998 

nce . =USRCADRCLODS),SMROF,PICSIZE> : CL 
cau 

1986 REM ESTABLISH PLOTTING SCREEN 

1996 POKE 1606,.MEMTOP-64 

26606 GRAPHICS 15+16:G0SUB 8660: DHSCR=P 

EEK¢CS619) 

2616 SMSCRLO=PEEK C88) :SMNSCRHI=PEEKC89>) 

> SMSCR=SMSCRLO+256*SMSCRHI:POKE 559,34 


HORIZON=VY 


FEBRUARY 1989 


rorcrerowvwonyD 
ODZHSHnNDMmM 


_ 
<m 


am 
rm 


2116 CLOSE #1:POKE 716,.60:POKE 769,480:? 
“Insert diSk into drive #1," 

2126 7? * press <return>";: INPUT JS: OPE 

N 21,6,0,"D:%.?7IC* 

2130 7? “SB: TRAP 2146:FOR N=86 TO 63: INP 
UT #1,FILES: POSITION 24+19%¢CCN’22=INTCN 
7232,INTCN“23:? FILES; :NEXT W 

21486 TRAP 2116:POP ‘CLOSE 21:7 :? 
er Filename’; :INPUT FILES 

2156 IF FILE$ci1,23<>"D:** AND FILEScC1i,3 
><>"Di:* AND FILES¢€1,33<>"D2:" THEN JS 
=FILES: FILES Ci, aa. oe ee 

21686 TRAP 22486:RETURN 

REM ML SCREEN LOAD ROUTINE 

DIM LODS<¢c28>3 

LODS="hONSRHBUAHETAheYAheXewe ve 


RETURN 
REM ERROR MESSAGE 


“Ent 


2246 7? “DISK ERROR’: END 

7668 REM LOAD AN MI PICTURE 

76286 RESTORE 7668 

7636 FOR A=1536 TO 1556 

780486 READ B:POKE A.B 

7656 NEXT A 

76686 DATA et te ye Ea te 
157.,73,3.,32,86,.228,48,1,96,1804,10804,96 

7678 NiLOD$="h@eOSOBSORaD Agere ne moe 
DIFHSI0 84 IN oe < GORE: 

7688 MILODS ¢55) = "NONI SANs 


a S7Z0EG0RO SAZNSEOROD SA4ZnehOeebason 
| bo 

7698 MILODS €115)="HBXOOSMZYoORSe SZ0ri~ 
SSE ORB DEMO SAAN SAMOS 


7166 MILODS 175) ="ARnOnee- 

Ec Pine 7B 4)” his la Fb PE bIPinie Cc ECP tipi 
7116 MILODS «2289 =CHRS c155>3 

7126 MILODS (229) ="@D0GRRDRONZRBSCOAOP eD 
3008 ehihGiiheSGG - RENAE eMansooesantaie 


Pslea oo 


i MILODS$ (2913 ="FSR Ried «ee Moonsesahesaa 
am SNE? COA be OOS ehsmhwnraswa:: 

UG | 7148 REM POKE 88.,.ADLO:POKE 89.,ADHI 

ZM| 71686 A=USRCADRCMILODS> > 

JK| 71986 CLOSE 21:G0SUB 888080: RETURN 

KG |7500 ? “B:POSITION 32,1:7 *€319,03":P 
OSITION 30,22:7 *€319,1913":POSITION 1 
panty? “¢€@,i9i13™ 

IW| 7518 POSITION 1,1:?7 "*¢c@,63" 

AY| 7528 RETURN 

RS| 8668 BRK=USRCADR Cc’ hOSSNhhwNSONDeSeelie 
>,BRKX>2 :RETURN :REM DISABLES BREAK WHE 
N ARG=1 
a REM HARD-WIRED RAY TRACING, LISTING 

V@\'26 REM BY MICHAEL BJORKNAN 

QH'38 REM ¢€c31988., ANTIC PUBLISHING 

UD'35 REM CREATES LINES 2198, 70786-71606, 
71286-7138 & 886868 

EV '4@ REM cLINES 186-250 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 

IJ|5@ REM CHANGE LINE 76 AS NECESSARY.? 

PR|66@ DIM FNS¢C260),TEMPS ¢€20),ARS C939 :DPL=P 
EEK¢C1i@S92>):POKE 186592,.,255 

WO}780 FNS="D:LINES.LST":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 

RD + ? “BOMisk or Bassette?";:POKE 764,25 

PY¥ 96 IF NOT cPEEKC7643=18 OR PEEKC764)= 
58> THEN 98 

TH/1006 IF PEEKC7642=18 THEN FNS="'C: 

UB }116 POKE 764,255:GRAPHICS @:? * AN 
TIC'S GENERIC BASIC LOADER 

MY (128 7? ,."BY CHARLES JACKSON" 

KB |138 POKE 186592.,.DPL: TRAP 288 

PU|140 7? :?7? :? “Creating ";FNS:? "*...plea 
se stand by." 

LW ae RESTORE :READ LN: LM=LN:DIM ASCLN?D: 

B@\/166 ARS="""*:READ ARS 

T] hk ie X=1 TO LENCARS> STEP 3:POKE 75 

DMN|186 LM=LM-1:POSITION 180,180:? "“cCountdo 
wn..-T-"*; INT CLM7160);°*3 - 
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LISTING 2 


16 R 
iB 26 R 
QH | 38 : 
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iow] 


KP SOoenagd: Of® 
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~) 


mh SO CON OOO 


186 


HMnN+ADQDDOADDoSASIXKXOMO4ASOoHSelcenresc 
CHF STOHOMeDKAVSCSS<xKMUSMOUTSMME< 


WAWWWNNNNNNNNNPL 
WHE OVONACAWNEHO® WO 
Seoeooooooooodoodo 


02 


aWNF OW © 


eSxzvuroet4eo 
VBrNONSeOSS 
SQSCOSSSOSHMOSCSTSOSOCOMMOOSOOTOOOOO Soecreeoeoooooooeds © 
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Meonn.w.oconeogir << 


LR 
a 


NFP OWONACAWWHEROWONACAWWNHEFOWVONAMAW NRFPOUVUONAC! 


COONNNVNNNVNNNNAAAAAAAAAnannianncnd 


FEBRUARY 1989 


EM STRING EQUIVALENCE, LISTING 2 


EM BY DOUG WHITE 


EM ¢c319868, ANTIC PUBLISHING 
ie * STRING EQUIVALENCE D 


>? “INPUT ARRAY SIZE ¢ < 46800 2 


NPUT ASIZE 

F ASIZE>3999 THEN 5@ 

“oe THEN ASIZE=18 

IM S$¢1>,MCASIZE> 

IM US C26» 

DIM DELAYS$<ci» 

REM 

REN FIND MEMORY LOCATIONS 
REM FOR THE STRING AND THE 
REM ARRAY THAT ARE TO BE 

ot EQUIVALENCED. 
UNTST=PEEK C136) +256*PEEK C1312 
UNTEND=PEEK C1322 +256"PEEK C1333-1 
VUTST=PEEK C1343+256*PEEKC135> 
ee See 
US="SS":REM . THE DATA ‘STRING’ 
GOSUB 2668 

a 


AGOFFSETLOG=-OFFSETLO 
AGOFFSETHI=GFFSETHI 
ADIMILO=-VDIMNILO: ADIMAIHI=-VDINAIHI 


ADIMZLO=VUDIN2ZLO: ADIMZHI=VUDIN2HI 


REM 


REM . REDIMENSION THE STRING & 


REM . SET THE STRING OFFSET 


ZE=-6*FIRSTDIMN*SECONDIN 
E=INT CSSIZE’2562) 
=SSIZE-256*HBYTE 


oo nm 


cccececii 


SETLO 


mooocecemonu 
“ 
+ 
aes 
. 
seoonoeo 


“ ZKARRRKRRAP SZC CSE 
YO Mmmmmmmno a 


? “WRITE Mc> TO DISK" 


+ #1,8,0,"D1:ARRAY.DAT* 
=6 TO ASIZE 


iooctrm mam 


> «7 


3 
N 
FOR TURBO BASIC, USE: 
— %1,N 
1506:REM GET TIME 
? “WRITE SS TO DISK" 


Z-SuxKxSzRarAzAmMes:Sa22 
cnt 
© 


»,8,0,."Di:STRING.DAT"™ 


+ 

M . FOR TURBO BASIC. USE: 
M BPUT #1,ADRCS$9,SSIZE 
1566:REM GET TIME 
0 


VYVOADWDADBDDVGOMBVSHSSBVS NTOMOBDVSTNsD vsTvwvwtTvTTvTerrsu 
remomm oavwrm monmmmn 

rm 

z 

. 

jn 


INPUT DELAYS 
2? :? “FELL Mc> WITH ONES" 
REM 


M 
US="MNc': REM . THE DATA ‘ARRAY’ 


ee - EQUAL TO THE ARRAY OFFSET 


M 
FIRSTDIMN=ADIMILO+256"ADIMNIHI 
SECONDIM=ADIMN2Z2LO+256*ADIN2ZHI 


H #°S 1 TO ASIZE 


E=@ TO ASIZE:MCIX=I: NEXT I 


18,6:POKE 19,.60:POKE 28.86 


KE 18,6:POKE 19.,.6:POKE 28.8 


zx=zt2ZOorwrvexcyHpn 


N<ZIDUUCHONZHOMZCCOSH AWHIAOSMANCSItoOIreH fF 
SCHaSCm<strDUuMOaNnte<<OA NSH 


aan 
Dz 


QoreooZuUuNncoeolst "nner 
WWWAWDWNNNNNNNNNNNNNNNONHNAIANNNNNN 


rND>CC<HMCrpsztHusns 
SOOmM@OOVNNPRrPRPFPRP FPR RPE H OO ©+000000 


D 
N 


Dr 
aon 


SSOvonaciawnNHOwO 


ONNACAaW NP OCOCTOSCOCCCCEOCOD 


eueceoood eoc® 


VVBOOSSIDOTHNVOD vvseme 


ee fet fed ed ed ee Se DLO O10 OOD 1 DO 


18 


2668 


CLAW fF | OUFPOWVONAMAWNKFPOVONVNEAGCAaUWne 
SCOocrwOa,Qvoqooqoqooooqoooqooooo eFoocoeodo 


POKE 18,6:POKE 19,8:POKE 20.0 
FOR I=@ TO ASIZE:MCI>=1:NEXT I 
GQOSUB 1500:REM GET TIME 

GOSUB 160@:REM PRINT Mc TO 5» 
2:2? “FXLL Meo WITH 3°S" 

? “BY COPYING SUBSTRINGS IN Ss* 


REM 
POKE 18,.@:POKE 19,.6:POKE 28.86 
Mc@2=3:REM McO?> = S$$C1,63 


UT DELAYS 


m=z 0 oo 
m 4 ~) 


7°? “REFILL Mc> WITH DATA BY " 


“D1: ARRAY .DAT” 
KE 19,.6:POKE 26.86 
SIZE 


RBO BASIC, USE: 


jo nf 
-c Dor 
22 


B 1566:REMN GET TIME 
E #1 


mr-omammnzoocwmn 
vc=-+ 


SOUxKHSETUPAMS 


7? “REFILL Mc> WITH DATA BY ™ 


“D1i:STRING.DAT" 
KE 19,.6:POKE 28,8 


EM CIO METHOD 

RBO BASIC, USE: 
»ADRCSS),5S5I1ZE 

REM GET TIME 

REM PRINT Mci TO 5S» 


bad 
io - 8 — 2 
® 


GET TIME 


EEKC203+256*PEEK¢C1932768 
NT C19006*S5EC?/1608; 
CONDS" 


mre 


R 

$ FIND VARIABLE #& 
>UNUMN=-1 

I=UNTST TO UNTEND 
EEKcI> 


jNIDBORBIAx : 


Tizrolmmmm 
o+ 


“READING ‘D1:ARRAY.DAT’ INTO Mc 


“READING ‘(Di:STRING.DAT*‘ INTO S 


i 
H>128 THEN CH=CH-123: UNUM=UNU. 


F CHRS CCH? <>USCJ,J> THEN J=80:60T 


HOH HOONODDBSSVANNVADDVVUDAMAAND 
i=] 
Pel 


F aaa THEN 2188 


{ 


NEXT 

REM 

“te FIND VARIABLE LOCATION 
VULOC=VUUTST+ CUNUM) *8 
OFFSETLO=PEEKCUULOC+#2>» 
OFFSETHI=PEEKCUULOC+3> 
VDIMILO=PEEKCUULOC+4») 
UDIMIHI=PEEKCUULOE+5>) 
UDIM2ZLO=PEEKcCUULOC+6>) 
UBIM2ZHI=PEEKCUULOC+?> 

2? :? "US = ";3;US;" UNUM = “; UNUM 
RETURN 

REM CIG METHOD 

AD=ADRCSS> :ADHI=INT CAD’“256>) :ADLO= 
DHI*256 

I=848:POKE I+2,7:POKE I+4,ADLO:PO 
+S, ADHI:POKE I+8,.255:POKE I+9,255 
N=USRCADRC’hhhSLUA's ,16) 

N=PEEK CI +9) *#256+PEEKCI+8) 

RETURN 
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FRIENDLY QUIZ THAT KIDS LIKE USING 


SPELLING FLASHCARDS ............ 


LISTING 1 TYPO Ieodes! A 


FJ'/16 REM SPELLING FLASH CARDS cUER.5> 0O£|648 GOTO 438 
PY|2@ REM BY ANDY BARTON Q1\|;650@ IF CHC=1 THEN 4486 
QH/|/30 REM ¢c31988, ANTIC PUBLISHING TP|}666 POSITION XAWt+CHC,6:7 #6;""_"*:CHC=CH 
QK/86 GRAPHICS 18:POSITION 9@,3:?7 no aaa a C-1:POSITION XAW+CHC,5 B6;5°° “:ANSSCC 
GUNG AMAR: ? 26:7 26:7 #6;° HC,CHC2="" *:GOTO 4486 
Y andy barton" GE|676 REM TRACK SUB 
LK|96 GOTO 55866 QU'686 POKE 712,58 
XP|}100@ REM SUBROUTINES RN|696 FOR X=FL TO 1 STEP -1 
LM}118 REM COUNTDOWN TIMER Z2mM| 7606 IF TRACKC1,X> THEN TRACKC1,X2=TRAC 
21/120 JIFS=SEC*66: THI=cCINT CJIFS4256)93:TL KC1,X2-1:GOSUB 280:GOSUB 438 
OW=JIFS-THI*256 LT|7106 NEXT xX 
AJ|'130 POKE 66,1:POKE 5480,TLOW:POKE 541,T ZC | 726 FOR Z=1 TO FL:IF TRACKC1,2Z2> THEN 7 
HI: POKE 554,1:POKE 66.80 40 
ZF\/146 RETURN Z2D\|73@ NEXT 2: TRACKC1,6)3=@ 
XI/150 REM TUNE ZL| 740 RETURN 
R@|;166 FOR Z2=1 TO NTS BY|756 REM SET TRACK SUB 
UW'170 T=CcINT CRND CQ) *7) +139 *54+49 OG | 766 TRACKC1,O@2=1: TRACKC1, X27 =REPEAT 
WB\/180@ FOR L=14 TO 4 STEP -2 Z2Z2\|776 REM DISPLAY SCORE 
PE|1960 SOUND @6,T,18,L JA! 786 POSITION Q0,0:? Hee oral *;TOT: POS 
QH| 2600 NEXT L:NEXT Z ITION @,.1:7 8#6;"RIGHT ‘;COR 
RA|2106 SOUND 6,6,.60.,.8:RETURN WS|798 Z= CHOICE cCC> :POSITION 11,0:7 86;3°"L 
GI|}220 REM BUZZER IST #32 
RL|2360 FOR 2Z=1 TO NTS DK|79S POSITION 11-2* cDDS €Z2*11+9, Z*11+939< 
SR|246 SOUND @,.56.6,18 >" "">,1:7 86;DDS ¢Z2*11,2%114+18) 
M@;|;250 NEXT Z ZE|866 RETURN 
RK| 2660 SOUND @8,480.,.8,0:RETURN OJ|816 REM SHORT 
Q@'276 REM MAIN SUB 1 ¥V@'826 AWL=15 
DD| 286 TEMP=TRACK CG, X2*15 ™N|836 IF AWS CAWL,.AWL2="" " THEN AWL=AWL-1 
XU) 290 AWS=AWFS CTEMP, TEMP+15-19 ?>TF AWL>@ THEN 8386 
UL|} 300 GOSUB 828 Z21|84@ IF AWL>@ THEN AWS=AWS c1,AWNL? 
EL|31@ XAW=9-INT « CAWL+4+1972) 20|85@ RETURN 
QE|320 REM MAIN SUB 1A -- UIEW WORD TE|860@ REM BLANK-OUT 
UR|330 SEC=VIEW:GOSUB 118 WU'|8786 POSITION 6,.5:?7 #6; BLANKS 
UW| 340 POSITION XAWt1,5:7 86; ANS Z2U|8890 RETURN 
PW|350 IF PEEKCTFLAG®» THEN 3586 S50|898@ REM LOAD FILE 
LF|360 REM BLANK-OUT LETTERS YD|900 FILENAMES=""D1i:°" 
XH|370 GOSUB 8786 JZ2|;910 Y=4:Z=CHOICE cCC*11:FOR X=6 TO 7:1 
UE|38@ FOR Z=1 TO AWL: POSITION XAW+Z,6:7 F DDS¢Z2+X,Z2+X3<>" * THEN FILENAMES CY,Y 
BGs"; :NEXT Z I=DDS CZ+X, Z+XI: Y=HVi 
JG| 398 ANSS=BLANKS: REM 15 SPACES LX|92@ NEXT X 
ZA} 4080 RETURN MK| 9360 FILENAMES cY2=".": FILENAMES c¥+12=DD 
MY|416 REM MAIN SUB 2 $¢«Z2+8,2+16) 
WC|/420@ REM INPUT LETTERS AA|946 TRAP 9SBO:CLOSE #1:O0PEN 21,4,06,FILE 
BI| 430 CHC=1:GOSUB 7886 NAMES 
01'440 POSITION XAW+CHC,.5:GET #6,.C:IF C<> RN|950@ INPUT #1;FL,UIEW 
32 THEN CHC=CHC+1:GOTO 5486 WL|960 FOR X=1 TO FL: INPUT #1; TEMPS: Y-15 
20/4560 POKE CH,255:SEC=LIMIT:GOSUB 110:P0 X:AWFSCY,Y¥+15-13=TEMPS: NEXT X:AWFScY+4+1 
SITION XAW+CHC,6:7 26; **m: 5a=" | 
UK| 460 IF PEEK CCHS (258 THEN GET #3,CHR:G AS|970 TRAP 40000:CLOSE #1:RETURN 
OTO 498 LMN|986 NTS=BUZZ:GOSUB 220:?7 “ERROR -- °*; 
MU|}470 IF PEEKCTFLAG)=6 THEN 5886 ILENAMES;* is not a't:? “Spelling Flash 
PR|488 GOTO 468 Card file" 
KQ|}490 IF CHR=27 OR CHR=155 THEN POKE 712 OK|9960 FOR Z=1 TO 35@:NEXT Z2:POP :GOTO 46 
»-68:GOSUB 768: TOT=TOT+1:GOSUB 338:GOTO 0) 
430:REM cESC1 OR RETURN AF|/16660 REM SAVE LIST TO DISK 
ZU|;S@0 IF CHR=126 THEN 656:REM DELETE RN|'1016 IF FL=60 THEN POSITION 2,21:?7 BLAN 
TL|}510 IF CHR<¢>32 AND CHR<>45 AND CHR<>39 KS;BLANKS;"# ABORTED":GOTO 4518 
AND CHR<65 OR CHR>9O THEN 4460:REM NOT WH} 1026 CLOSE 2#1:O0PEN 21,8,0,FILENAMES 
o uM Mat B= 2 PL|1030 ? #1;3;FL:? #14;ULEW 
JL|}S260 POSITION XAW+CHC,6:7 8#6;"_":POSITI IL|16040 FOR X=1 TO FL: Y=15%X:? s1;AWFScY, 
ON XAW+CHC,5:? #6; CHRS CCHR> Y+15-1>:NEXT X 
TF1S530 ANSSCCHC, CHC® =CHRS CCHR® : CHC=CHCt1 RF|1056 GOTO 4518 
WK} 54@ IF CHC<=AWL THEN 448 XK/1660@ REM ML SUBROUTINE 
YF|SS6@ REM CHECK SPELLING PE|16076 POKE 752.1 
FD|S560 IF ANS$¢C1,AWL®X=AWS THEN NTS=WTUNE: JL|}1@080 DL=PEEK¢C5603+PEEK C5613 *256 
GOSUB 150: TOT=TOT+1:COR=COR+1:GOSUB 78 IB|16096@ SC=PEEKCDL+4)+PEEKcDL+52 256 
O@:ANSS=""":GOSUB 8706: RETURN AB|1106 RETURN 
2D';576 REM MISSPELLED NN/|}11186 S1=PEEKcCSC+704) :S2=PEEK¢SC+784) 
US|S8@ POKE 712,68: TOT=TOTt1 2€\}1126 X=USRCADLON,SC+400,ADRCSTORAGES), 
LO|;598 NTS=BUZZ:GOSUB 2280 160,1706,S5C+466, 80,5C+560,5C+480,400.,fN 
VZ|6800 GOSUB 768 DLDAT,.DL+15,49 
GO|616 FOR Z=1 TO AWL S$¥/11360 TC=1:P1=23:1F AWC=1 THEN T2=C*15: 
XT|}620 IF AWS ¢Z,22<>ANSSCZ,Z2>3 THEN POSITI AWS-AWFS¢CT2,T2+15-1) 
ON XAW+Z,5:7 86; * HF |}114@ POSITION P1-1-¢cC>93,10:? Cs" “;AW 
MQ@\|}630 NEXT Z2 $ 
34 


ANTIC SOFTWARE LIBRARY 


rc 
rr 


OD <N SOCcouvxnmn NEQ DVHt<tecroe end 
N@ =O 2SIMDweDo SCStv Boszooem Aa 


1156 P2=SC+443:POKE P2+TC,255* CAWC=19: 
REM PUT BAR UNDER FIRST LSTTER IN GR.? 


1166 RETURN 

RcCADLOFF,.S5C+879,S5C+959,4806,AaD 

$2,5C0+466,166,.DL+14,DL+15,4) 
SC+764,51:POKE SC+?784,52 


sah ig CHOICES 
O CHOICE c6> 

TRACKING ARRAY 

> TRACK CG, X32 =: 


commu 


i 
Oouv ilo 
N 
malas! 
x7 é 


Ax OQNYUNSE NT KAZePK SCOrF 
+z 
= 


<x Gast Of 


TRACKC 


Oo a 
OI *FLI+1 
»X3=-@ THEN TRACKCG, X3=T 


>FL THEN X=1 


nv“tio-romoommeosim 


XR ZABDDIA-MSR WD SPSr KDASKAKW HSSESPAUVTPAAACC= 
al 


= 
KY ODS 4xKxKEOO CD 


WME AWWAWH WW 
Oo-eooeo: 

COONAGxKAWN 
eCoeoegovrvodo® 


WWW 

 » © 

* © NO 
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—] 

wi 
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FL<113+4+1* ¢FL>1@ AND F 


i] 


- Ns) 
= unm Na Tm xAOoO+t+ePaez MM 
| 
=xO-Oo7MOxsYNOE 
ool — re  -e 


ZD O@©C=2=Zh8 Ge ACOxKMxKHxM MENS CF 
NDION-HDW IDMPO!I XIN Sail vr RNR AW: ODA ii D — 


<s+KR 4 FPNVOCMUM OH Zi 
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C 
:p 
E 
F 
T 
7 
H 
F 
F 


3 
26,X-HFL-1 
HEN 3218 


ee e 
THNTOMDNVs VH ONO NTOMH +OTVTSHKOKMXKXNOMNAONADUTTxX< 


z 
M4 << A - 


5. 


“" Oooonm-omnmeromme ii 


vm 
=z 


w 


xz 
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PRESS ANY KEY" 


Z 

IN LOOP 

CS 2+16:POKE 708,214: TC=1:T 
OSUB 788 

6,CHRSET’256 

2 tS Ft 

c1,0> THEN GOSUB 688 
@:X=ANWC 

GOSUB 286:GOSUB 4386 

NEXT AWC 

IF TRACKC1,6> THEN GOSUB 686:GO0TO 


6 
@ REM REWARD SCREEN 
@ POKE 712.80:?7 36;" 
POSITION 5S. 
NE:GOSUB 1586 
NEXT CC 

POKE CH,.255:POSITION 2,.8:7 26;"AN 
EY TO GO ON':GET #3,.CHR:GOTO 45186 


16 GRAPHICS 2: T2S$=BLANKS:2Z=6 
286 POSITION 2.,080:?7 8#6;"ty¥pe in new li 


38 POSITION 2,3:7 #6;"TITLE:"*: INPUT 
?-IF Tis=" " GR Tis="" THEN ? “H"':? 
7°? “ABORTED: GOTO 45186 
? 
1 


onooozmm 
m+ mils 


7G 
=) 
C 
Cc 
i 


. 


WWNWAWWWOWWAWWRP WW WSOWWOWWPAWw 
FP OUONAM I AWNFHF | OWED NAwnanwnhd 
FOO @OSOCOOTOSTOCHrCOUNOWOOrFOOFO® 


**;BLANKS 
5:? 36; “SO0DOBMOMM': NTS 


AQanaawnrd Ww 
eooc® 


i] 
© 
y =| 
rm 
= 
D> 
o 
o 
t 
rm 
x= 
a 
Lal 
ui 
+ 
uw 


MOVE OOOO WWPAWWWA WON NNNAENNNNGNE OP OPE BPR ARH 
@ -- 


u 
NWA FraxZa ¥ 


IF T19¢€1,13<"A" GOR T1$¢1,13>"2Z" T 
°? “Must Start with a LETTER*:FO 
TO 166:NEXT X:GOTO 3518 

F LENCT1$3>8 THEN ? "“B"':? :? “To 
'":FOR X=1 TO 106:NEXT X:GOTO 35 


=1:FOR X=1 TO LENCT1$>) 
F Z=6 AND TiScX,X3="." THEN T2S¢ 
CX,XI'Z=V¥*tZS: VY=V¥+1 

*TF TIS CX,X2>="O6" AND TASCX,XI<="9 
OR TisScX,X2>="A* AND TAS CX, XI<="Z2" T 
HEN T2SCY2=T1IS CX, XI: Y=¥+1 

=" gl X:IF LENCT2$3>12 THEN T2$S=T2 

€1,12) 
3585 IF Z>@ AND LENCT2$2>2Z THEN T2S=T2 


WtWWrROWDEW-AWNWWWtWW I AWW 


av aue 


$¢€i,2Z3 

3586 Z1=LENCT2$3:FOR X=1 TO LENCT2$):I1 
F T2S$¢X,X3=".* THEN 21=X-1:2Z2=8 

3587 NEXT X:T2$=T2$¢1,21)9 

3596 IF 2=8@ THEN T2S$CLENCT2$3+4+13="".DAT 
3595 POSITION 2,.5:7 8#6;T2$S$:POSITION 2, 
7:7 86;"ACCEPT? CN ":GET #3,2:1F 2=78 

THEN 35186 

3600 FILENAMES="D1i:"": FILENAMES €43=T2$S 

3610 POSITION @.7:? #6;"*HOW LONG TO PR 
EVIEW?" 

3620 TRAP 3636: VUIEW=DUIEW: INPUT Z:VUIEW 


FEBRUARY 1989 


Foo Ga "4a = 
Ton CVT FS 


=Z 

3636 TRAP 480066: POSITION 2.,.9:7 2#6;VIEW 
3;** SECONDS" :SEC-VIEW:GOSUB 118 

3646 IF PEEKCTFLAG® THEN 36486 

3656 GOTO 3828 

3660 REM EDIT LIST 

oS ree 5600: CHOICE c1i3=-VAL «CHOICES «2 
>>) i 

3686 GOSUB 966: TRAP 466686 

3698 AWC=-1:X-@:GRAPHICS @:GOSUB 18678 
378060 7 :? “This file is Set to preview 
words for “;VIEW;"' Seconds'':? :? “Ent 
er new time or press BREHDDRIE" 

ect TRAP 3746: INPUT Z:UIEW=Z: TRAP 4686 
37260 7? :? VIEW;s*' Seconds": SEC=VIEW: 60S 
UB 118 

3738 IF PEEKCTFLAG® THEN 3738 

3748 7? "RM: IF FL>2@ THEN 3768 

3758 FOR X=1 TO FL:POSITION 2.X-1:G05SU 
B 379@:NEXT X:GOTO 3838 

3768 HFL=INTCCFL413972) 

3778 FOR X=1 TO HFL:POSITION 2,X-1:605S 
UB 37960:NEXT X 

3786 FOR X=X TO FL: POSITION $4,.%-HFi =e 
>GOSUB 3796:NEXT X: GoTo 3838 

aree ay atk THEN 3 

3$86O 7 Xs** 3 :¥=15%X:?7 AWFS CY, ¥+15-193: 
RETURN 

3818 REM INPUT NEW WORDS 

3826 GRAPHICS 8:GOSUB 18076:FL=8@ 

38386 POSITION 2.21:? “SHOGEM word or 
sae to Edit BRANNON TO SAVE 
3840 POKE CH,255:GET #3,CHR 

‘erode IF CHR=155 THEN 1016:REM SAVE FIL 
eat OP eal OR CHR>S? THEN 3920:REM 
3878 AWC=1:C-VAL CCHRS CCHRI):SEC-@.5:60 
SUB 118 

3886 IF PEEKCCH3=255 THEN IF PEEKCTFLA 
G> THEN 38890 

3890 IF PEEKCCH)<>255 THEN GET #3,2:I1F 
Z2>4?7 AND 2<¢S8 THEN C=C*10+UAL CCHRS cZ> 
> 

39606 IF NOT c€<i OR COFL® THEN 39186 
39865 POSITION 4.23:7 C:;"** Is too large" 
3;:*FOR X=1 TO 99:NEXT X:POSITION @,23:?7 
BLANKS; :GOTO 3838 

39186 GOTO 3958 

art 2 ae OR CHR>96 THEN 38486:REM 

3930 FL=FL4+1:I1IF FL>4@ THEN FL=46:POSIT 

ION 2.,.23:?7? MAXI HON OF 4c MUD so Geant: 
X=1 TO i1506:NEXT X:GOTO 3748 

3946 C=FL:T2=-C*15:AWS=BLANKS: AWS ¢€1,19= 
CHRS CcCHR? :AWC-@ 

3958 POSITION 2.21:?7? BLANKS: BLANKS; :PO 
KE 752.,.1:POSITION 2,.21:? “SMD word 
and press SHGHDRMS': 

3966 GOSUB 1118 

iil IF AWC-@ THEN TC=TCti:POKE P2+TC, 

3986 GET #3,.CHR 

3998 IF CHR=15S THEN 4696:REMN RETURN 

=oee IF CHR=254 THEN 4196:REM CTRL DEL 

4016 IF CHR=126 THEN IF TC<>1 THEN 422 


@:REM DELETE 
4626 IF CHR=36 OR CHR=43 THEN 42360:REM 


bg IF CHR=31 OR CHR=42 THEN 4256:REM 


4640 IF CHR>64 AND CHR<91 OR CHR=32 OR 
CHR=45 OR CHR=39 THEN GOTO 4066:REM A 


-Z2 OR SPACE OR - 

4658 GOTO 3988 

4666 POSITION Pit+TC.16:7? CHRSCCHR? : ANS 
CTC, TC =CHRSCCHR®:POKE P2+TC.@ 

4676 TC=TC+1:IF TC>1S5 THEN TC=15 

4686 POKE P2+TC.255:G0TO 3988 

4698 POKE CH,.255:GOSUB 820:POKE 94,PEE 
KCDL+42:POKE 95,PEEKCDL+52:GOSUB 11786: 
IF AWL=6 THEN 41686 

4106 1T2$¢€1,152=BLANKS: T2$¢1,AWL®2 =AWS:A 
WFS¢CT2,T724+15-13=T2S 

4120 IF AWC=@ THEN 3746 

4136 X=C:IF FL<21 THEN POSITION 2,C-1: 


continued on next page 
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> THEN POSITION 
6:GOTO 3838 
><GOSUB 3796:GOTO 38 
POSITION 2.19:? BLAN 
3 TO 4518 
ali AWFS=AWFS¢€1,72-19:FL 
AWFS ¢T24+15)9:FL=FL-1:GOTO 
=15 THEN AWS cC1i59=" ":GOTO 42 
J=AWS CTC+13:AWSCISx2=" * 
ON P1it+1,160:? AWS:GOTO 398 
+#TC,0: TC=TC-1:POKE P2+TC 
1+7TC0,10:? " “:AWNSCTC,TC 


THEN POKE P2+TC,6:TC=TC- 


die 

Oroc 
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THEN POKE P2+TC,6:TC=TC 


255 
TO 398 
4560 REM DISK DIRECTORY & CHOOSE WORD 
LIST cS» 
CLOSE #1:0PEN #1,6,0,"D1i:*.DAT 
DDScids=" “PDS C6S*119=" “:PDS$c2>= 
DD= 
INPUT 21, TEMPS 
F TEMNP$S¢5,163="FREE SECTORS” THE 


€11*DD,11*DD+169 =TEMPSc3,1323:D 


Om oD. 
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ITION 4,.X-1:605 
THEN 4746 
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S$ ¢X*11,X*114+109; :RET 


»20:?7? “Choose BEM cEX. 
»9 or a7 Fr 

“BABEM Edit a 1ist Bitum New li 

IF DD>460 THEN ? “BRGHORIM more ch 

ERROR=-5S8680 


NPUT CHOICES 
ee a one 


NQOMAa@WZNPOOCDWVO- NN AMAWANP NOVOoevnaqnaw 
-~ oom 


=@ AND DD>46 
1:? "“®°:GOTO 


HEN 468686 

S Eis i> ="*Ne 
Ss ci, 41) =e es 
$¢1,13<""@" 
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46 
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THEN 35186 
THEN 36786 
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ee ee Penne 


heli OR CHOICES CY, 
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H +1: CHOICE cCC)= 
5 IF CHOICE cCC>)> 


THEN GOSUB 4990:GOTO 49 
CHOICES¢cyY,Y2="-" THEN DASH=1:6 
CHOICES CY,Y3<>","* THEN S808 


FrPOUveanuagvy CT aWJnNGAPOUGAN 


<oq £26 ZA 


EM NEXT 
EN CC=CC 
22:TC=6: 
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4950 NEXT Y¥ 

4960 IF TC<>@ THEN CC=CC+1i: CHOICE cCC)= 

VAL CCHOICEScY-TC232:IF CHOICE cCCC2 >DD TH 

EN GOTO 5668 

4970 IF DASH=1 THEN GOSUB 49986 

498@ CHOICE c@2=CC:GOTO 30186 

4996 DASH=0:CC=-CC-1:X=CHOICE cCC) :Z2=CHO 

ICE ¢cCC+13-X:FOR CC=CC TO CC+Z 

4995 CHOICE «CC =X: X=X+i:NEXT CC:CC=CC- 
1:RETURN 

S660 NTS=BUZZ:GOSUB 226:?7? “ERROR -- Wr 
ons Input Form"; :SEC=2:GOSUB 1186 

96160 IF PEEKCTFLAG>® THEN 5019 

$8626 GOTO 468686 

S506 REM EQUATES TABLE 

5510 REM VALUE VARIABLES 

eRe. WTUNE=20:REM LENGTH OF TUNE FOR W 
5536 LTUNE=86:REM LENGTH OF TUNE FOR F 
INISHING LIST 

SeanG ee ee ee LENGTH OF BUZZER FOR 

S556 DUIEW=-@.75:REM SECONDS TO VIEW WO 

RD cCINITIAL DEFAULT VALUE» 

2568 LIMIT=2@:REM TIME LIMIT cSECONDS> 
TO TYPE EACH LETTER OF THE WORD 

9578 REPEAT=3:REM NO. OF TIMES TO REPE 

AT A MISSED WORD 

$736 REM INITIALIZE 

5748 DIM STORAGES 160) : STORAGES €19=" oe 
>STORAGES C1603="" ":STORAGES C23 =STORAGE 
$:DIM BLANKS C38») 

97586 BLANKS=STORAGES: DIM DD$c65*11):RE 

M DISK DIRECTORY 

39760 DIM FILENAMES c15),CHOICE$ (1209, TE 

Sgn en eae eas PEERS ee ek 
C64) 

th AWC=8:REM ACTIVE WORD COUNT VARIA 

578@ TFLAG=554:REM FLAG FOR COUNTDOWN 

TIMER ROUTINE 

9798 DIM AWFS €¢40*1539+15):REM ACTIVE W 

ORD FILE - f& STRING 

28660 DIM TRACKC1,40)9:REM REM TRACKING 

MATRIX - LEVEL ¢c@,X>. @=CORRECT NOT @ 
= STILL TO DO 

$8190 REM - LEVEL ¢1,X3 KEEPS TRACK OF 

a OF TIMES LEFT TO REPEAT A MISSED W 

5820 DIM AWS C15) :REM ACTIVE WORD 

5830 DIM ANS$c1i5)>2:REM ANSWER 

S846 CH=764:REM LAST KEY PRESSED 

S858 CLOSE #3:O0PEN #3,4,0,°K:" 

S868 T$¢1,723="h d4BRSHNAGHRNOOIBUGDROGoa 

RAR eSEGh dA OA dv DA dZ7 AA dA DASh dZ 

| Piel TE) TP oe 


9876 75¢73,144)="(0GREURDRDENEMAN dA WA 
d47 D4GhOhGhSaDhSIOhShShOIDhODSHNHeRDeSe 

HORM eANab** 
9880 TEMPS="h': TEMPS €2,193=T$ 165,122) 
> TEMPS €26,322=TS$ 128,140) :X=USRCADRCTE 

MPS), ADRCTS2 ,1536,144>9 

9896 ADLON= 1567: ADLOFF=1593:ADLDAT=167 


6 

29680 CHRSET=cPEEK C106) -83*256: X=USRC15 
36,57344,CHRSET,5123 
9916 RESTORE 9926:FOR Z=504 TO $11:REA 


D X:POKE CHRSET+Z,.X:NEXT Z:REM REDEFIN 
5920 DATA 8,126,0,0,0,80.8.8 
5930 GOTO 4510 


1@ REM SPELLING FLASH CARDS-LISTING 2 
26 REM BY ANDY BARTON 

30 REM ¢c> 1985,.1987 ANTIC PUBLISHING 
35 REM CREATES LINES 58686-5878 

46 REM cCLINES 186-256 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 

96 REM CHANGE LINE 70 AS NECESSARY.»> 
60 DIM FNS C26), TEMPS ¢20)2,ARSC93>9:DPL=P 
EEKC10592):POKE 10592,255 

78 FNS="D:LINES.LST':REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 

“te ? “HODisk or Bassette?";:POKE 764.25 
96 IF NOT cPEEKC7643=18 OR PEEKC764)= 
58> THEN 986 


ANTIC SOFTWARE LIBRARY 


cM 
ua 


1060 IF PEEKC7642=18 THEN FNS$="C:* 

11860 POKE 764,255:GRAPHICS 6:7? *" AN 

TIC'S GENERIC BASIC LOADER" 

1260 7? ,."BY CHARLES JACKSON* 

130 POKE 186592,DPL: TRAP 260 

140 7? :? :? “Creating “;FNS:? °* -Plea 

se stand by." 

ke RESTORE :READ LN: LM=LN:DIM ASCLN?D: 

166 ARS=""":;READ ARS 

ee X=4 TO LENCARS? STEP 3:POKE 75 

186 LM=LMN-1:POSITION 18, 10: 2 “<cCountdo 

wn.--T-**s; INT CLM716)3;°°3 

198 As CC. C> =CHRS CUAL CARS CX, ¥s9029 1620+ 

1:NEXT X:GOTO 168 

200 IF PEEKC19539=S THEN ? :? :? “TOO 

MANY DATA LINES!"*:? “CANNOT CREATE FIL 
E!:**: END 

216 IF C<LNt+1i THEN ? :? "“GTO00 FEW DATA 
LINES!°*:? page t CREATE FILE!*:END 

220 IF FNS="C:°* HEN 7? :? ** Prepare ca 
ssette, press CRETURNG* 


AR| 236 OPEN 2#1,8,6,FNS$ 

PU; 240 POKE 766.,1:?7 %1;AS;:POKE 766,980 

AL; 25@ CLOSE ##1:GRAPHICS @6:? “SR0RUEEHEDS 

HC|}1666 DATA 1886 

YA|1610 DATA 053865686546486032084803664806 
44055056041 66163416403210666061600686 
2480145212230212208002230213 

NN} 1626 DATA 23024620806022362411982382 
34198239016236809616463218088086032127 
8321806866803212780806632180006 

HY/} 16360 DATA 863268040606032168066686321276 
96164032180606661606606177240145212198 
268662198634155053856055048 

ZC| 18046 DATA 80326848036648005505180446496 
92641661803421319824026088002198241198 
2682361982396162328032160006 

DK| 1656 DATA 8321278686603216808060680321270 
9616417801641681041332411804133240164 
2131641332121804133239164133 

FL}; 1068 DATA 23815206721386726961662381 
001772480145212280862622682488696006007 
616634155 


Coming Next in March ’89 Antic 


¢ SpartaDOS X: ICD’s Ultimate Operating System Reviewed by Matthew Ratcliff ¢ 
° Electric Signwriter — Flashy Automated Display Screens °¢ 
¢ Antic-Pak Utilities © Demon Racer ACTION! Game °® 
e “Planetfill” Text Adventure 2-Part Disk Bonus Starring Iggy the Droid ° 


GET YOURS FAST 


Super Bonus Program! 


Found only on the disk, it’s too large a type-in 
program to fit in the magazine. 


Plus all 172K of this month’s Antic programs on 
disk. Great 8-bit software without typing! 


Phone Toll Free 
(800) 234-7001 


Phone orders by Visa or MasterCard only 
Ask for ADS289 


The ATARI Resource 


Antic Classifieds 


SOFTWARE, ETC. 


Discount Software/Hardware for ATARI 8-bit & 
ST. 30% below retail Atari 130XE $145, Supra 
20meg-ST $579, ATARI XF551 disk drive $175, 
Anchor 2400 baud modem $159, Star NX-1000 
color $239. Send $1 for 20 page catalog with 
over 500 titles. Specify computer type. MULTI 
VIDEO SERVICES, Box 246, E.Amherst, NY 
14051 Phone 716 688-0469 after 6 pm (4/89) 


Best PD disks/prices-fastest service-FREE 
bonuses-8-bit/ST. Automatic DISK-A-MONTH 
program. Full disks less than $1.50 each. Super 
sample disk with catalog $3.50. Specify com- 
puter. PATNOR, POB 370782, El Paso, TX, 
79937. (2/89) 

SI's Fantastic Selection of packed ATARI 8-bit 
(D-S)/ST PD Theme Disks is Far SUPERIOR to 
all other collections we've seen——I'RY US! Send 
for MLX GAMES’GREATEST HITS (our Most 
Popular title), plus SI’s newest catalog, for 
8-bit/$3.00 or ST/$4.50. Catalog alone (specify 
system)/$2.00. SOFTWARE INFINITY, 642 East 
Waring Avenue, State College, PA 16801 (2/89) 


FREE DISK!! We would like to send you one of 
the best PD games avilable for the 800/XL/XE. 
Limited offer. Write today. ComputerActive, 
Box 893-D, Clinton, OK 73601 (2/89) 


12 X-RATED DISKS FOR THE ATARI 
800/XL/XE only $14.95 + $2.50 S/H. You must 
send a signed statement of being over 21 with 
check or money order to: ComputerActive, Box 
893-X, Clinton, OK 73601 (2/89) 


PRINTSHOP ICONS FOR THE ATARI 
800/XL/XE. 10 disks with over 1000 pictures 
for use with Printshop. Only 14.95 + 2.50 S/H. 
Order today! ComputerActive, Box 893-P, Clin- 
ton, OK 73601 (2/89) 


MGL COMPUTER WHOLESALERS. BUY- 
SELL-TRADE. Used 8 Bit Computers, Soft- 
ware, Diskdrives, Modems, Printers and acces- 
sories. Huge Public Domain Library. Low 
Prices-30 ‘day Warranty. Call 717-267-3205 or 
267-2865, or 762-6967 For Prices and Com- 
plete List (4/89) 


200 DS/SD DISKS OF PD SOFTWARE FOR 
THE 8-BIT ATARI. PLEASE SEND $3 TO: 
AAPDS 6-18TH EDGEMORE, HUTCHINSON, 
KS 67502 FOR A CATALOG LISTING AND 
DEMO DISK.(2/89) 


MoonSoft 8-bit. LabelMaster and Multi-Column 
Lister $10. Included with Small Business Sys- 
tem $30. Send SASE for info. Black Moon Sys- 
tems, Pob 152, Windgap, Pa 18091.(2/89) 


io. @.@.@.@.! 


Stop overpaying for P.D. software!!! ALL 8-bit 
disks only $2.00 each, ST only $3.00. Quan- 
tity discounts, great selection. Specify com- 
puter. Send large SASE: MWPDS,890 N. 
Huntington St., Medina, OH 44256 (2/89) 


ST MONITOR AND MIDI CABLES. Monitor 
cable gives 520 ST composite video/Audio for 
non-Atari monitor or VCR $15. PAIR OF 10’ 
coiled midi cables for all STs $20. Include $2 
S/H per order. Southern Security, 14007 Long- 
vue, Baker LA 70714 (2/89) 


DUST COVERS: Protect your investment with 
durable, anti-static, water resistant covers cus- 
tom designed for your 800XL, 65XE, 130XE, 
1050 Drive, 520ST, 1040ST. Specify cover(s) 
and send $8.95 each plus $2.90 shippiing: 25th 
Century, 234 Fifth Avenue, Suite 301, New 
York, NY 10001. (2/89) 


kkk kkk 
AUTORUN SYSTEM. Make all your basic pro- 
grams autorun with The Basic Autorun System. 
Send $5.00 for disk to: R.D.K. 321 Imperial 
Ave. #12-099 Calexico, CA 92231 (2/89) 


Try us for your Atari Public Domain software 
needs. Good prices, fast service. Write for free 
catalog. Vulcan Software, PO Box 692 
Manassas, VA 22111-0692(7/89) 


ENJOY quality public domain software! 
Games—productivity—utilities—communica- 
tions—more! Catalog FREE. . .demo disk, 
$3.00. Homemade, 6011 Hyde Park Circle, 
Suite 202, Jacksonville, FL 32210(2/89) 


KKK KKK 


FOR SALE 8-BIT MULTI USER BBS SYS- 
TEM! The only 8-bit BBS system of its kind. 
Will sell everything you need to get up and run- 
ning within hours. Write today for information: 
Micro Systems, PO Box 18346, Ft. Worth, 
Texas, 76118 (2/89) 


SynFile + UTILITY PROGRAMS. Print file lay- 
out, create and save reports, undelete records, 
alter look-up tables, etc. $19.95 plus $2.00 
P&H. Send large SASE for more info. SFP, 4 For- 
est Drive, Palmyra, VA 22963 (2/89) 


The first 100 requests for our list of Atari 
800/XL/XE PD disks will receive our best sell- 
ing game disk free. Hurry before the free disks 
are gone! Limit one free disk per address. Ist 
Byte, P.O. Box 130822, Tyler, TX 75713 


Public domain Disks: ST $4.00, 800/XL/XE 
$3.00. Largest ST selection. ST Bible on disk 
$39.95. Blank disks $CALL. VISA/MC. FREE 
Catalog—Call or Write, Specifiy Computer. 
BRE Software, 352 W. Bedford, Suite 104-AN, 
Fresno, CA 93711. (800)622-7942, (209)432- 
2159 in CA.(2/89) 


SAVE MONEY ON ATARI 800/XL/XE SOFT- 
WARE! Public Domain and Shareware soft- 
ware! Over 250 Theme Disks! Every disk 
guaranteed! Fast dependable world-wide serv- 
ice! Send for your Free descriptive Catalog! 
BELLCOM, Box 1043-A, Peterborough, 
Ontario, Canada, K9J 7A5.(2/89) 


Martian Solutions: BLOOD & DUNG Order 
BLOOD and you'll receive a 3+ page detailed 
Order BLOOD walk-through of Captain Blook. 
Just $3.50 + .50 shipping. With the 100+ page 
DUNG (DUngeonMaster Notes Galore) you can 
finally solve FTL great game. Includes Spell 
List, Detailed Maps of ALL levels, hints, tips & 
solutions for the toughest puzzles. $9.95 plus 
$1.05 shipping. Mars Merch. (address, etc. 
below.)Martian Light PhasarWe’ve converted a 
major manufacturer’s gun to be used with all 
Atari 8-bit computers. 100% compatible with 
the Atari XL/XE game system gun. We believe 
it to be more accurate and better weighted than 
most any gun in the universe. $39.95 plus $3 
shipping (UPS). 312/530-0988 MARS Merchan- 
dising, 15 W614 Diversey, Elmhurst, IL 60126- 
1257 (2/89) 


AGAPE GAMES-5 CHRISTIAN GAMES. 
KINGS GLORY Arcade like Adventure with 26 
mazes and a maze maker. BIBLE WORD 
SEARCHER with 30 puzzles and a puzzle gener- 
ator. Plus 3 games that teach the Books of the 
Bible. For Atari 8-bit (requires 48K + disk) 
$12.95-Daniel Sharpe, GPO 911, Chicopee, MA 
01021.(3/89) 


ADVERTISING SALES 


West Coast Advertising Sales Representative: 


AUSTIN HOLIAN 

544 Second Street 

San Francisco, CA 94107 
(415) 957-0886 


East Coast Advertising Sales Representative: 


DAVID S. KESTER 

544 Second Street 

San Francisco, CA 94107 
(415) 957-0886 


Address all advertising materials to: 


KATE MURPHY 

Advertising Production Coordinator 
Antic Magazine 

544 Second Street 

San Francisco, CA 94107 


Advertising Deadlines | 


Advertisers 
index 


March 1989 

PAGE NO. Insertion Orders: December 1 
AMERICAN TECH NAVISION Artwork: December 8 
ANTIC SOFTWARE On Sale: Last week of January 


COMPUTABILITY 

COMPUTER REPEATS | 
COMPUTER MAIL ORDER April 1989 
COMPUTER SOFTWARE SERVICE 


Insertion Orders: January 2 
Artwork: January 9 
On Sale: Last week of February 


MAD SCIENTIST 

PSYGNOSIS 

SOFTWARE DISCOUNTERS OF AMERICA . . IBC May 1989 
SPRINGBOARD Insertion Orders: January 30 


Artwork: February 6 
On Sale: Last week of March 


This list is provided as a courtesy to our advertisers. ANTIC does not 
guarantee accuracy or comprehensiveness. 


B UJ : Name Company 


Address Phone 


City/State/Zip 
S : / / MasterCard/Visa Number Expirauon Date 


Signature Issue(s) Ad to Appear 


Enclosed is my payment for $ 


RATE: $1.00 PER WORD—twenty (20) word minimum. 
BOLDFACE: Add $7.50 per line for boldface words or add $40.00 for the entre ad set 


in boldface (any number of lines). 
STARS: Add $6.50 for one (1) line of six (6) stars ® %& *& *& & *& at top of ad. 
TERMS: Prepayment is required. Check, Money Order, Visa or MasterCard is 


accepted. Make check payable to Antic Publishing. 
FORMS: Ads are subject to publisher's approval and MUST BE TYPED. Please underline 
words to be set in boldface. 


GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail- 
: “ able issue after receipt unless otherwise specified. 
Antic Classifieds DEADLINE: 90 days prior to cover date (e.g., December 1988 closes September 1, 
1988—December issue on sale November 1, 1988). 
$44 Second Street, San Francisco, CA 94017 Clip this coupon, attach to typewritten copy and send with remittance to address on 
Telephone (415) 957-0886 the left. 
HANDWRITTEN COPY WILL NOT BE ACCEPTED 


AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 


P"'lcunater Vielen 


MUSIC pot 


3257 Kifer Road 
Santa Clara, CA 95051 


(408) 749-1003 


STORE HOURS 
TUE - FRI 10am - 6pm 
SAT - 10am - 5pm 
CLOSED SUN - MON 


4 800/XLIXE 
hoa CHILDRENS EDUCATIONAL SOFTWARE 


“a3 


Bee OF ACTS avckwews 13.50 MUSIC COMPEMDIUM ... 35.95 
MIRNTE sade wonaa sais 26.95 MUSIC STUDIO sssesas 31.50 CBS TINK!TONK! 
ALT. REALITY: BANK ST. MUSIC WRITER 13.50 (age 3-6 on disk) (age 4-8 on disk) 
Pe Clie. cncw eaeews 26.95 VIRTUOSO wiacaw sane sn 44.95 ERNIES MAGIC SHAPES .. COUNT AND ADD 
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HARD-WIRED 
Ray Tracing 


Shadows and reflections for your 8-bit graphics. By Michael Bjorkman 


Hard-Wired Ray Tracing creates complex pictures with multi- 
colored patterns, reflections and movable objects, not unlike the 
famed “Shiny Bubbles” demo on the Atari ST. This BASIC program 
works on XL and XE computers with at least 64K memory and 
disk drive. Tipe-In Sofware Wil 
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f you follow the ST scene, 
you may have seen Xanth 
Park’s “Shiny Bubbles” demo, 
or pictures created with Tom 
Hudson's “‘Ray-Irace Construction 
Set” (START, Spring 1987). These im- 
ages were made using principles of 
ray tracing, a process now brought to 
the 8-bit Atari with Hard-Wired Ray 
‘Tracing. 

Figure 1 is a series of pictures made 
with Hard-Wired. Note the reflections 
of the floor and ceiling on the sphere. 
The reflections were created with ray 
tracing algorithms. 

The floor and ceiling are actually 
distorted Micro Illustrator and 
Micropainter pictures. Hard-Wired 
shrinks these pictures into little 
squares, then uses these squares to tile 
the ceiling and floor. Figure 2 shows 
the Micro Illustrator picture used to 
tile the floor. 

Our frame of reference is kept as 
simple as possible by restricting the 
program to one ceiling, one floor and 
one sphere. At this level, we only need 
a tiny set of equations to handle ev- 
ery possible reflection. Hence, the 
program is called “‘Hard-Wired”’ be- 
cause all of the necessary geometric 
equations are explicitely defined, or 
“hard-wired” into the program. 


GETTING STARTED 


Use your own Micro Illustrator and 
Micropainter microscreens to create 
your own ray traced images. You'll 
need at least two—one for the floor 
tiles and one for the ceiling tiles. If 
you want to use pictures created with 
other paint programs, use the Rapid 
Graphics Converter (Antic, Novem- 
ber 1985) to convert them to a com- 
patible form. 

Next, type in Listing 1, HARD- 
WIRE.BAS, checking it with TYPO II, 
and SAVE a copy before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 2190, 7070- 
7130 and 8000, don’t type them in. 
Instead, type Listing 2, check it with 
TYPO I and SAVE a copy. When you 
RUN Listing 2, it creates these hard- 
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to-type lines and stores them in 
a file called LINES.LST. To merge the 
two programs, disk users LOAD 
“D:HARDWIRE.BAS” and then EN- 
TER “D:LINES.LST’’ Remember to 
SAVE the completed program before 
you RUN it. 

When RUN, the program asks 
several introductory questions, in- 
cluding the position of your eye and 
the location and size of the sphere. 

The first prompt asks you for the 
coordinates of your viewpoint (the 
position of your eye relative to the 
screen.) Under this coordinate system, 


CENTER OF SPHERE 
Cty €) 


LA VIEWPOINT 


(Vig, Vy Vz) 


Figure 3 


(0,0) represents the top-left corner of 
your screen, (319,0) represents the 
top-right corner, and (319,191) is the 
bottom-right corner. 

The Z-axis runs “through” your 
monitor. Objects “inside” your mon- 
itor have positive Z values; those in 
front of your monitor have negative 
values. For example, the coordinates 
(319,191,-100) name a point 100 units 
in front of the bottom-right corner of 
the screen and the point (0,0,0) is on 
the surface of the screen at the top- 
left corner. 

Type in the coordinates of your 
viewpoint. 

Remember that your viewpoint is 
always “outside” the monitor, so your 
Z-coordinate must be negative. Z- 


values that are very “close” to the 
screen (between 0 and -200) result in 
a sphere that looks like an ellipse. 

Recommended Z-values are around 
-450. At this distance, all portions of 
the screen are relatively the same dis- 
tance from the viewpoint, and the 
sphere appears circular. 

If you don’t know what values to 
use, press [RETURN] and Hard-Wired 
will use the center of the screen as 
your viewpoint. 

Next, type in the coordinates of the 
center of the sphere. Be sure to place 
the sphere below the ceiling, above 


the floor, and not too far left or right. 
Otherwise, it will not be on the 
screen. Values near the center of the 
screen work best. 

Again, if you don’t know what 
values to use, just press [RETURN] and 
Hard-wired will place the sphere in 
the upper-left part of the screen. 

Now, type the radius of the sphere. 
This number must be small enough 
for the sphere to fit entirely between 
the ceiling and the floor. Otherwise, 
the program will print COORD 
ERROR on the screen and re-prompt 
for the radius. If you can’t think of a 
value, press [RETURN] and Hard- 
Wired will calculate a legal one for 
you. 

The next two questions let you 
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move the pictures within the floor 
and ceiling tiles. If you’re creating a 
series of screens for a “Shiny 
Bubbles”’-style animation, you can 
use this feature to scroll the floor and 
ceiling back and forth or side to side. 
The floor and ceiling move as one; 
they cannot be moved indepen- 
dently. 

If you type 160,0, the image will 
be moved left, with what would have 
been the middle of the floor tile 
moved to the left side of the tile. Typ- 
ing 0,-95.5 will set the bottom of the 
screen half a floor tile deeper “into” 
the image. 

Next, Hard-Wired asks if you want 
to use its Dimming feature. Type Y to 
use this feature, or N (or [RETURN]) 
to shut it Off. 

Finally, Hard-Wired asks you for the 
microscreens you want to use for the 
floor and ceiling tiles. You can use 
Micro-Painter or Micro Illustrator 
screens. You do not have to type the 
“D:” prefix when typing their file- 
names. Once Hard-Wired loads both 
screens, the screen will go dark and 
it will begin plotting the ray-traced 
image. 

When it’s done, Hard-Wired saves 
the image to a Micropainter- 
compatible file called TRACE.PIC. If 
you want to use a different filename, 
type it into line 1380. 


DIMMING 


When light reflects from an object 
in the real world, part of the light is 
absorbed and part of it is reflected. 
This makes the reflected image appear 
somewhat dimmer. 

When you use the Dimming fea- 
ture, Hard-Wired will dim the rays 
reflecting off of the sphere. This limits 
the number of colors you can use in 
your original microscreens because 
each each color will require two color 
registers—one register for the 
dimmed color and one for the pure 
color. 

Hard-Wired dims the rays by 
decrementing the color register num- 
ber. For example, a ray hitting the 
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floor on a pixel with the color in reg- 
ister 3 is reflected from the sphere as 
the color in register 2. A color in reg- 
ister O is reflected as color register 0. 

Since Hard-Wired uses GRAPHICS 
15, a four-color mode, you may only 
want to use two of the available colors 
when drawing your microscreens. Al- 
ternatively, you may want to draw 
your original microscreens with 
several shades of a single color, such 
as white, light gray, dark gray and 
black. If you wish to change the 
colors that Hard-Wired uses, just alter 
the SETCOLOR statements in lines 
2040-2070. 


RAY TRACING 101 


Ray-traced images are made by 
reversing the path that a ray of light 
takes to your eye. A diagram of one 
path that a ray may take is shown in 
Figure 3. This ray’s path begins at 
your eye (the viewpoint), passes 
through the screen and into the room 
containing the sphere. 

Once in the room the ray might hit 
the ceiling, the floor, or the sphere. 
If the ray hits the sphere, it is reflected 
onto the floor or the ceiling. In any 
case, every ray that enters the room 
eventually lands somewhere on the 
floor or ceiling. 

When the ray lands, the program 
notes the color of its “point of con- 
tact.’ This color is “mapped” onto the 
screen at the point where the ray 
passed through it. If we trace a ray for 
every point on the screen, eventually 
we'll have a complete picture. 


ANIMATIONS 


Once you feel comfortable with 
Hard-Wired, you can build anima- 
tions, featuring scrolling floors and 
moving spheres. 

Hard-Wired will not animate your 
microscreens; you must use a separate 
animation or page-flipping program 
instead. MovieMaker will do the job, 
however you'll have to use Antic’s 
Rapid Graphics Converter to convert 
your hard-Wired pictures from Micro- 
Painter to MovieMaker format. Since 


MovieMaker pictures have half the 
resolution of Micro-Painter pictures, 
your microscreens will appear 
coarser. However, you'll be able to fit 
twice as many screens into an ani- 
mation. 

There are also many public domain 
page-flipping programs. They’re also 
simple to write. See Dave Plotkin’s 
Page Flipping, A Racy Tutorial 
(Antic, January 1984) and Ian Chad- 
wick’s 130XE Memory Management 
(Antic, November 1985) for more in- 
formation on page-flipping. 

Hard-Wired’s screen is turned off to 
hasten the computations by 15 to 30 
percent. Press [OPTION] to see the 
picture as it is being drawn. Using 
Atari BASIC, each image takes about 
two hours to calculate. You can 
achieve much faster speeds with 
BASIC XE’s “FAST” mode or Tur- 
boBASIC. 


PROGRAM TAKE-APART 


Lines 1000 to 1640 contain the 
“hard-wired” ray-tracing equations 
needed to map the pixels onto the 
sphere, floor and ceiling. 

Lines 1650 to 1780 use INPUT state- 
ments to get the coordinates of the 
viewpoint and the sphere, the sphere’s 
radius, and the displacement of the 
floor and ceiling tiles. 

Lines 1880 to 2010 load the two 
microscreens into RAM. One 8K 
block of memory is set aside for each 
screen, and a third block is used to 
plot the final ray-traced image. All in 
all, Hard-Wired is manipulating three 
complete microscreens and three sep- 
arate display lists. 

Hard-Wired finds the spot where 
the ray hits the floor or ceiling, then 
uses the LOCATE command to deter- 
mine the color of the pixel it hit. 
Hard-Wired then finds the spot where 
the ray passed through the screen and 
colors it with this color. A 


Michael Bjorkman of Seattle, Washing- 
ton is making his first appearance in 
Antic. 


Listing on page 30 
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EQUIVALENCE 


New way to speed up your BASIC programs. 


By Doug White 


Equivalence teaches intermediate-level program- 
mers how to use a powerful technique that speeds 
up common BASIC operations by as much as 150 
percent. Included BASIC demonstration programs 


Atari BASIC is a very friendly pro- 
gramming language, but certain oper- 
ations can be rather slow. Disk I/O, in- 
teger calculations, FOR-NEXT loops, 
etc. all involve floating-point calcula- 
tions requiring six storage bytes for 
each variable used. These operations 
are slow because they require many 
integer-to-floating-point and floating- 
point-to-integer conversions. 

String operations, on the other 
hand, are quite speedy. “Equivalenc- 
ing” lets you apply these speedy oper- 
ations to other types of data. 
Equivalencing can make numeric disk 
I/O and other operations run up to 
150 times faster. 


EQUIVALENCING 


Equivalencing simultaneously 
treats blocks of data as string data and 
as floating-point data. 

Your Atari stores strings and num- 
bers as bytes in RAM. BASIC uses a 
series of tables to remember which of 
these bytes are part of strings and 
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FIGURE 1 (RAMdisk) 
ATARI BASIC D1: D8: 
INITIALIZE M(3334) 39.50 39.50 
INITIALIZE $$(20004) 0.33 0.33 
M(3334) + Dn:ARRAY.DAT 99.03 53.58 
$$(20004) + Dn:STRING.DAT 83.95 5.73 
Dn:ARRAY.DAT — M(3334) 91.95 64.65 
Dn:STRING.DAT > $$(20004) 19.48 0.44 


which bytes represent floating-point 
numbers. By changing these tables 
you Can take a series of bytes that rep- 
resent a floating-point number and 
make BASIC treat these bytes as a 
string as well as a number. 

These tables also contain the loca- 
tions of all the variables in your pro- 
gram. They work like an address 
book. Once BASIC determines 
whether a series of bytes contain a 
string or a floating-point number, it 


goes back to these tables to find the 
location of these bytes. 

Change these tables and you 
change the memory locations that 
BASIC will search for the values of 
your variables. It’s like telling your 
mother-in-law that you moved to Bor- 
neo. The next letter she sends you will 
end up in Indonesia. 

By altering the values in these ta- 
bles, you can take any block of mem- 
ory and treat it like a string. 
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Equivalencing techniques let you 
take advantage of BASIC’s speedy 
string operations while avoiding time- 
consuming floating-point conver- 
sions. 


SPEED DEMOS 


Listing 1 uses sound to illustrate this 
dramatic improvement in speed. Type 
in Listing 1, EQUIV1.BAS, check it 
with TYPO II and SAVE a copy to 
disk. Be sure to remove the TYPO II 
program, as described in the TYPO 
II instructions, before you RUN the 
program. 

The first part of the program plays 
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tables, fooling BASIC into thinking 
that $$ has moved to a different ad- 
dress (the audio control registers). 

The next time BASIC looks for the 
bytes in S$, it'll end up at the audio 
control registers. Since BASIC thinks 
that S$ is located at the audio control 
registers, anything we put into $$ will 
appear in these registers. 

Here’s an example. If we tell BASIC 
that $$ begins at memory location 
53760 (the address of the first audio 
control register) then: 

S$(1)= “A” 

ASC(“‘A’)=65 
has the same effect as (but much 


reads it back again. The first time the 
program does this, it uses GET, PUT 
and other conventional methods of 
handling data. Then, the program 
does the same thing all over again, but 
this time it uses speedy equivalenc- 
ing techniques. 

The entries in Figure J are the run 
times in seconds for each part of List- 
ing 2 when M() has 3,334 elements. 

Type in Listing 2, EQUIV2.BAS, 
check it with TYPO II and SAVE a 
copy to disk. Be sure to remove the 
TYPO II program, as described in the 
TYPO II instructions, before you RUN 
the program. 


work on all 8-bit Atari computers of any memory 
size, with disk drive. The article also explains how 
to use the Turbo BASIC XL language for even 


greater speed. 


FIGURE 2 
Turbo BASIC XL 


INITIALIZE M(3334) 
INITIALIZE $$(20004) 


M(3334) 
$$(20004) 


Dn:ARRAY.DAT — M(3334) 
Dn:STRING.DAT — $$(20004) 


all four voices using BASIC’s SOUND 
command. 

This part of the program can be 
slightly accelerated by POKEing the 
sound data directly into the audio 
control registers (memory locations 
53760-53768). 

The second part of the program 
uses an equivalenced string to fill all 
audio control registers at once. First, 
the program DIMensions a string 
called S$. Then it alters the variable 
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—> Dn:ARRAY.DAT 
> Dn:STRING.DAT 


(RAMdisk) 
Ds: 


9.59 
0.27 


22.18 
0.40 


21.88 
0.42 


quicker than): 

POKE 53760,65 

We've just equivalenced a string 
variable to a specified block of 
memory—the audio control registers. 
Listing 2 shows you how to equiva- 
lence a string to a numeric array to 
speed up data handling. 


DATA HANDLING 


Listing 2 creates a sample floating- 
point array, M(), writes it to disk and 


When RUN, the program asks you 
to choose the size of the sample 
floating-point array. As written, the 
program cannot handle such arrays 
DIMensioned above 4,000. 

Next, the program equivalences ar- 
ray M( ) toa string, $$, and begins fill- 
ing M() with numbers. Since M() and 
S$ are equivalenced, every value 
placed in M() also appears in S$, but 
in a slightly different form. 

Since BASIC stores numbers as six- 
byte binary coded decimals (BCD), 
your equivalenced string requires 6 
characters for each floating-point 
number. For example, the number 
41.4243444 is internally represented 
as @ABCDE. 

So if you wanted to equivalence an 
array containing 3,334 numbers, 
you'd need a string DIMensioned to 
(6 x 3,334) or 20,004. 


TIMING 


The program also times itself. The 
first column of entries in Figure J is 
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for my own disk drive—a single den- 
sity Indus GT. The times you get may 
be different if you use a different 
brand of disk drive. The second 
column in Figure 1 contains run times 
for a RAMdisk. 

The first entry in Figure 1 is the 
number of seconds it takes to write 
3,334 elements (20,004 bytes) from 
M() to a disk file named D1:AR- 
RAY.DAT. If the same data gets writ- 
ten as a 20,004-byte string to a disk 
file named D1:STRING.DAT, the run 
time decreases from 99.03 seconds to 
83.95 seconds. If you write the data 
to RAMdisk files, writing to the string 
is almost ten times faster than writ- 
ing to the floating-point array, 53.58 
seconds and 5.73 seconds, respec- 
tively. 

The increase in the speed of in- 
itializing the arrays is even more im- 
pressive. Ordinarily you'd initialize a 


floating-point array with a FOR-NEXT 
loop, such as in line 540 of Listing 2. 

You can do the same thing with an 
equivalenced string in two quick 
steps. Assign the first element the 
regular way, M(0)=-1l. Since S$ is 
equivalenced to M(), this assignment 
will also change the first six bytes of 
S$. 

Now you can copy the first six bytes 
throughout the rest of the string with 
the statement: 

S$(7)=S$(1) 

This statement will change every 
value in M() to -1. The equivalenced 
string method is 120 times faster than 
the FOR-NEXT loop for an array of 
3,334 elements. 

The bad news is that BASIC lacks 
a speedy way to read D1:STRING.DAT 
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back into $$. So we resort to a little 
machine language. 

The subroutine beginning at line 
3000 in Listing 2 uses your Atari’s 
built-in ClO (Central Input/Output) 
routines to read a disk file into a string 
at machine language speed. 

In this routine, AD is address of the 
string. It is broken into low- and high- 
bytes in line 3000. The expression 
POKE I[+8,255:POKE [+9,255 tells 
CIO to read as many bytes as it can, 
up to 65,535 bytes, or until it reaches 
the end of the file. Line 3030 contains 
the USR function which starts the CIO 
routines. When CIO is through, line 
3040 calculates the number of bytes 
which have been read and stores it in 
N. 

To learn more about CIO, read the 
CIOV section (location 58454) of Ian 
Chadwick’s “Mapping The Atari’’ 
($16.95, Compute! Publications). 


quivalencing avoids 
time-consuming floating- 
point conversions. 


TURBO BASIC XL 


If you own an XL or XE, Turbo 
BASIC XL also has the fast I/O com- 
mands you need. 

Turbo BASIC XL is by Frank Oz- 
trowski, of West Germany, author of 
Michtron’s GFA BASIC for the Atari ST. 
Turbo is a public domain BASIC inter- 
preter and compiler that offers a 
more powerful programming envi- 
ronment. It’s available on Com- 
puServe’s 8-bit Atari Forum and from 
many Atari users groups. 

Turbo BASIC supports structured 
programming, provides new I/O, edit- 
ing, and DOS functions, and RUNS 
several times faster than Atari BASIC. 
Unfortunately, it does not work on 
Atari 400 or 800 computers. 


Turbo BASIC XL has %GET and 
% PUT commands to read and write 
numeric data to and from disk, and 
BGET and BPUT to read and write 
string data to and from disk. Substitut- 
ing these commands for the Atari BA- 
SIC commands in Listing 2 will give 
you the run times listed in Figure 2. 
The Turbo BASIC commands and 
their Atari BASIC equivalents are in 
lines 630-640, 730-740, 1070-1080 
and 1200-1210. 

Turbo BASIC is somewhat faster 
than Atari BASIC for the floating-point 
routines. Reading into S$ from RAM- 
disk or writing S$ to RAMdisk takes 
only four tenths of a second in Turbo 
BASIC! If the string is a little smaller, 
such as 8,138 bytes (the size of a 
GRAPHICS 8 screen & display list) the 
read and write times are less than two 
tenths of a second. Reading or writ- 
ing a GRAPHICS 0 screen (992 bytes) 
to or from RAMdisk takes one tenth 
of a second. 

The net effect is that programs us- 
ing Turbo BASIC, RAMdisks and 
equivalencing will transfer data 130 
to 150 times faster than programs 
which don't use these techniques. If 
you add the extra time that a physical 
disk drive takes, the increase in speed 
is two to five times, still a significant 
increase. 


HOW IT WORKS 


Let’s take a closer look at the 
way BASIC handles variables. In 
Atari BASIC (and all compatible 
BASICs) variables are stored in tables. 
The three tables of interest here are 
the variable name table, the variable 
value table, and the string and array 
table. 


VARIABLE NAME TABLE 


The variable name table is merely 
a list of all of the names of the varia- 
bles used in your program. Instead of 
putting a space between the variable 
names (and wasting a byte), the last 
character in each name is stored as an 
inverse character. If our program con- 
tains the variables— TOTAL, AR- 
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RAY(5), and NAME$(10)—the variable 
name table would look like this: 


TOTAMARRAYERNANES 


Atari BASIC recognizes three classes 
of variables—scalars, floating-point 
arrays and strings. If the last charac- 
ter in the variable name is an inverse 
letter or number, as in TOTAL, the 
variable is a simple floating-point 
number called a scalar. 

If the last character is an inverse 
open parenthesis, as in ARRAY, the 
variable is a floating-point array. And 
if the last character is an inverse dol- 
lar sign, as in NAME$, it is a string 
variable. 

The address of the beginning of the 
variable name table is stored in mem- 
ory locations 130 (low byte) and 131 
(high byte). Calculate the starting ad- 
dress of this table with the equation: 

PEEK(130) + PEEK(131) * 256 


The ending address of the variable 
name table is one less than the num- 
ber stored in memory locations 132 
and 133. 


VARIABLE VALUE TABLE 


The variable value table contains 
type and size information about each 
variable. The starting address of the 
variable value table is kept in mem- 
ory locations 134 and 135. 

Each variable in the variable name 
table has a corresponding eight-byte 
block of information in the variable 
value table. These blocks are kept in 
the same order as the names in the 
variable name table. 

The first byte in each block 
represents the variable type. A O 
represents a scalar, 64 and 65 denote 
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floating-point arrays, and a 128 ora 
129 represent a string variable. 

The second byte of each block is 
the variable number (O—127) as as- 
signed by BASIC. 

If the variable is a scalar, the remain- 
ing six bytes contain its binary coded 
decimal (BCD) value, as described 
above. 

If the variable is a floating-point 
array or a string, the third and fourth 
bytes contain the location of the array 
(or string). This location is not a 
memory address, but its offset into a 
table containing all the strings and 
arrays used in your program. This ta- 
ble, called the string and array table, 
is discussed later in this article. 

If the variable is a floating-point 
array, the fifth and sixth bytes are 
equal to one plus the first DIMension 
size, and bytes seven and eight are 
equal to one plus the second DI- 


loating-point calculations 
are slow compared to string 
operations. 


Mension size. 

For example, the statement DIM 
ARRAY(7,13) would set bytes five and 
six equal to 7+1, or 8, and bytes seven 
and eight would equal 13 +1, or 14. 
(If ARRAY was a one-dimensional 
array, bytes 7 and 8 would equal 0 + 1, 
or 1.) 

If the variable is a string, the fifth 
and sixth bytes contain the current 
length of the string. The seventh and 
eighth bytes contain the DIMensioned 
size of the string. 

For example, when BASIC 
processes the statement DIM 
NAME8$(10), it sets bytes five and six 
to zero because the LENgth of NAME$ 
is zero. (Bytes five and six remain at 
zero until your program puts some- 
thing into NAME$.) 


Bytes seven and eight would equal 
ten, the DIMensioned size of the 
string. 


STRING & ARRAY TABLE 


The string and array table contains 
the contents of all the strings and 
arrays used in your program. The 
starting address of this table is kept in 
memory locations 140 and 141. 

Each time your program introduces 
a new string or array, its contents are 
appended to the string and array ta- 
ble. BASIC keeps track of these varia- 
bles by noting their offset from the be- 
ginning of the string and array table, 
and storing this number in the vari- 
able value table. 

In other words, the first array is lo- 
cated at the beginning of the string 
and array table and has an offset of 
zero. The second array’s offset would 
be equal to the size of the first array. 


HOW TO EQUIVALENCE 


These variable tables let BASIC give 
each variable a unique set of data that 
points to a unique area of RAM. When 
you equivalence two variables, you 
manipulate these tables so that the 
two variables share the same area of 
RAM. Scalars, arrays, and strings may 
be equivalenced in any combination, 
as long as the equivalenced memory 
locations do not overlap other 
variables. 

Once you understand how the vari- 
able tables work, equivalencing is 
merely a matter of altering the eight- 
byte blocks in the variable value ta- 
ble. Just copy the array’s offset and 
dimension information into the off- 
set and dimension information of the 
string. Here’s an example: 

NEW 

DIM A$(1),B(2) 

After BASIC processes these state- 
ments, the variable name table will 
look like this: 

ABBE 

And the variable value table will 
look like this: 
OOOO HY 
ALKIRE LHe 
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Which is equivalent to: 
129000 00 10 
(entry for A$) 


65110 30 10 

(entry for B()) 

Let’s interpret each eight-byte block. 
In the first block, the first byte, a 129, 
tells us that the variable is a string. The 
second byte, a 0, means that it is vari- 
able number O—the first variable in 
your program. It also means it’s the 
first entry in the variable name table, 
A$. 

Bytes three and four, also zeros, 
mean that its offset from the begin- 
ning of the string and array table is 
zero. 

Since no elements have been en- 
tered, A$ has a LENgth of 0 (bytes 
5 and 6 = QO), but has been DI- 
Mensioned to 1 (byte 7 = 1 and byte 
8 = 0). 


The second block contains infor- 
mation about the second variable. 
Here, the first byte, a 65, tells us that 
the variable is a numeric array. The 
second byte, a 1, means that it is vari- 
able number 1—the second variable 
in your program. It also means it’s the 
second entry in the variable name ta- 
ble, B(). 

Bytes three and four, a one and a 
zero, mean that the B( ) offset from the 
beginning of the string and array ta- 
ble is one—the maximum size of the 
previous variable A$. 

Bytes five through eight contain the 
variable’s DIMensioned size. BASIC ar- 
rays may have up to two indexes, and 
both sizes are stored here. Bytes five 
and six show the DIMensioned size 
of the first index + 1. Bytes seven and 


48 


PROGRAMMING POWER 


eight show the DIMensioned size of 
the second index + 1. 

In this example, the DIMensioned 
size of the first index is 2. Byte five 
contains (2 +1), or 3, and byte six con- 
tains zero. 

Since there is no second index, its 
value is 0. Byte seven contains (0 + 1), 
or 1, and byte eight contains zero. 

To equivalence A$ and B(), copy 
bytes three through eight of block two 
into bytes three through eight of block 
one. The variable value table will now 
look like this: 

129010180 180 

(entry for A$) 


6>110 30 10 

(entry for B()) 

Block two has not changed, but 
block one now points to the same 
memory locations as block two. Both 
now have the same offset into the 


he increase in the 
speed of initializing arrays 
is impressive. 


string and array table. 

You'll notice that bytes five through 
eight were not copied as you’d have 
expected. These bytes, describing the 
DIMensioned size of the array, ap- 
pears to have jumped from 3 to 18! 

Nothing’s really changed, though. 
As an array, B() may hold up to three 
floating point numbers. Since your 
Atari needs six bytes to store a single 
floating point number, it needs 18 
bytes to store three of them. Thus, if 
A$ and B() are to use the same piece 
of RAM, A$ must be 18 bytes long. 

Since A$ and B() now occupy the 
same 18 memory locations, any 
change in A$ will affect B( ) and vice 
versa. 

Substring Array Element 

A$ 1, 6) <> B(O) 


A$(_ 7,12) <—  B(1) 

A$(13,18) <—>  B(2) 

A$ was originally DIMensioned for 
one element for the sake of simplic- 
ity. If A$ had a DIMension of 600, its 
new offset would be 600 after 
equivalencing. 

Bytes 0 to 599 of the string and ar- 
ray table would be inaccessible 
memory. 


Inaccessible A$ and B() 
Memory stored here 
Bytes 0 to 599 600 to 617 


If you don’t like wasting this much 
memory, you can alter the variable 
value table so that the offset and 
DIMensions of both A$ and B() in- 
clude all 618 bytes. 

A$ would then have a DIMension 
of 600 + 3 * 6, or 618. B() would 
have a DIMension of 600/6 + 3, or 
103. Wasting memory will usually not 
affect your program. However, you 
should be aware of some potential 
problems with equivalenced 
variables. 


POTENTIAL PROBLEMS 


Losing your place. This happens 
when you incorrectly equivalence 
your variables. This can happen when 
creating the equivalence, or whenever 
the program processes a misplaced 
CLR statement. 

A CLR statement zeroes all of the 
variables and sets the offsets, string 
lengths, and array dimensions to zero 
in the variable value table. The equiva- 
lence between variables is destroyed. 

When you re-dimension the strings 
and arrays, BASIC once more assigns 
a unique offset for each. Each variable 
will control its own part of memory 
again. 

Finally, remember that the order of 
your variables in the variable tables is 
subject to change whenever you LIST 
your program to disk. The 
SAVE/LOAD commands preserve your 
program’s original variable name ta- 
ble. The LIST/ENTER commands do 
not. When a LISTed program is EN- 
TERed, BASIC builds a new variable 
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Error 
Trapping 


in Atari BASIC 


Crashes that you can prevent. By Heidi Brumbaugh, START Programs Editor 


Of the hundreds of program submis- 
sions Antic receives each year, many 
which are otherwise excellent must 
be rejected because they lack error 
trapping. No matter how thoroughly 
you test your program, errors can still 
crash it during operation simply be- 
cause the user isn’t as familiar with it 
as you are. This article will show you 
some error-trapping routines de- 
signed to make everybody’s life easier. 

Before sending your program out 
into the world, ask yourself, “Will 
something as simple as a user’s mis- 
interpretation of a prompt make the 
listing crash? 

You've already done the hard 
part—making your program under- 
standable to the machine. Now you 
just need to fine-tune it for sensitiv- 
ity to any off-the-wall keystroke com- 
binations the user tries. 


SET A TRAP 


To make sure our program—not the 
operating system—takes control 
when an error occurs, we must first 
tell the computer, “If there’s an error, 
let the program handle it.’ Predict- 
ably, this is called error trapping. The 
BASIC syntax we need to use is: TRAP 
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linenum. 

Here linenum is the program line 
for the computer to go to if an error 
occurs. At linenum we analyze the sit- 
uation and act accordingly. Put this 
statement at the beginning of your 
program to enable error trapping be- 
fore any problems crop up. 

The trap must be reset each time an 
error occurs. Otherwise the operating 
system resumes control the next time 
there’s an error. A good place to reset 
the trap is at the first line of your error- 
handling routine—but make sure it 
doesn't have any bugs. If you always 
put a TRAP statement there, you 
won't have to worry about the oper- 
ating system taking over when you 
don't want it to. 


You don't need to have an error to 
declare a new TRAP statement. When 
the computer encounters a TRAP 
statement, it remembers only the new 
line number and goes there if an er- 
ror occurs. Thus we can have one cen- 
tral location for handling errors. Or 
we can reset the trap and go to differ- 
ent error-handling routines depend- 
ing on where the error occurs. We'll 
use the second method in these ex- 
amples, but you'll learn how to do it 
either way. 

Of course, you won't always be able 
to deal effectively with an error. Un- 
foreseen circumstances do tend to 
arise. The BASIC equivalent to throw- 
ing your hands up and telling the 
operating system, “I don’t know what 
to do—you handle it”’ is to seta TRAP 
statement to an illegal line number. 
(BASIC allows line numbers between 
0 and 32767.) Most programmers use 
40000. This shuts off any previous 
TRAP statements. 

Let’s experiment, using the exam- 
ple of a user trying to write to a write- 
protected disk. We can handle this 
easily by asking the user to remove the 
write-protect tab and try again. 

100 TRAP 30000 
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illustrations by: Dwight Been 


110 OPEN #1,8,0,°D:DUCKS.DAT” 

120 ? #1,‘Donald”’ 

130 ? #1,°The, Howard’”’ 

140 ? #1,‘Daffy” 

145 ? #1, ‘Sitting’ 

150 CLOSE #1 

160 ? ‘“‘Names entered.’ 

170 END 

30000 TRAP 30000:REM Reset trap 

30010 CLOSE #1:REM Close 
channel 

30020 ? :? “Disk is write-pro- 
tected.”’:? 

30030 ? ‘Please remove write-pro- 
tect tab and” 

30040 ? “put disk back in drive.’ :? 

30050 ? “Press any key to con- 
tinue.’:POKE 764,255 

30060 IF PEEK(764)= 255 THEN 
30060:REM Wait for keypress 

30070 POKE 764,255:REM Clear 
last key pressed 

30080 GOTO 110:REM Try again 

This program works fine if it en- 
counters the error we've anticipated. 
However, the key to error trapping is 
to consider every possible error. Here, 
the disk drive may be empty or dis- 
connected, or the disk may be full or 
even have a bad sector. 

The computer stores the number of 
the last error encountered in memory 
location 195. We can use this infor- 
mation to modify our error-trapping 
routine. 

100 TRAP 30000 

110 OPEN #1,8,0,‘D:DUCKS.DAT” 

120 ? #1,‘Donald” 

130 ? #1,‘The, Howard”’ 

140 ? #1,‘Daffy” 

145 ? #1,;‘Sitting”’ 

150 CLOSE #1 

160 ? “Names entered.’ 

170 END 

30000 TRAP 30000:REM Reset trap 

30010 CLOSE #1:? :REM Close 
channel 

30015 ERR = PEEK(195) 

30020 IF ERR=144 THEN 
30150:REM Disk is write-protected 

30030 IF ERR=138 THEN 30200: 
REM Device does not respond 

30040 IF ERR=139 OR ERR=164 
THEN 30250:REM Having odd 
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problems 

30050 IF ERR=140 OR ERR=142 
OR ERR = 143 THEN 30300:REM Disk 
may be damaged 

30060 IF ERR=162 THEN 30350: 
REM Disk full 

30070 IF ERR=167 THEN 30400: 
REM File locked 

30080 IF ERR=169 THEN 30450: 
REM Directory full 

30090 ? “Error number “;ERR;” has 
occurred.”:GOTO 30500:REM Don't 
know what’s happened 

30150 ? “Disk is write-protected.”:? 

30160 ? “Please remove write-pro- 
tect tab and” 

30170 ? “put disk back in drive.’ 

30180 GOTO 30500 

30200 ? “Device is not 
responding.” 

30210 ? “Check disk drive cables 
and try again.” 


30220 GOTO 30500 

30250 ? “I’m having trouble open- 
ning file.” 

30260 ? “I suggest you check disk 
drive”’ 


30270 ? “and try again.” 

30280 GOTO 30500 

30300 ? “Your diskette may be 
damaged.” 

30310 ? “I suggest you try again or 
use’ 

30320 ? “another disk.’ 

30330 GOTO 30500 

30350 ? “Disk is full.” 

30360 ? “Please insert a new disk 
& try again.” 

30370 GOTO 30500 

30400 ? “You already have a 
DUCKS.DAT file” 

30410 ? “and it is locked. Insert 


new disk” 

30420 ? “and try again or abort 
operation.” 

30430 GOTO 30500 

30450 ? “You can only have 64 files 
on a disk.” 

30460 ? ‘Please insert new disk and 
try again” 

30470 ? “or abort operation.’ 

30500 ? :? “Press R to retry; A to 
abort.” 

30510 OPEN #1,4,0,‘K:”:REM 
Open keyboard for input 

30515 GET #1,OPT:CLOSE #1:REM 
Get option and close channel 

30520 IF OPT=65 OR OPT=97 
THEN 170:REM Abort 

30530 IF OPT=82 OR OPT=114 
THEN 110:REM Try again 

30540 GOTO 30500:REM Wait for 
AorR 

Granted, you normally wouldn't 
want such a complicated error- 
handling routine for so simple a pro- 
gram. But it’s a good example of how 
error trapping can make a program 
easy for anyone to run. We could even 
make the routine more complicated 
by having the program offer to unlock 
a locked file or delete some files if the 
disk or directory is full. The main 
thing is to be familiar with these 
techniques. 


PREVENTIVE 
MAINTENANCE 


You can also use preventive pro- 
gramming techniques to make sure 
that some errors never occur. Con- 
sider this short program to divide two 
numbers: 

100 ? “Numerator”; INPUT N 

110 ? “Denominator”; INPUT D 

120 ? “The answer is:”’; N/D 

130 GOTO 100 

This program will crash if the user 
enters zero as a denominator. While 
we could add a TRAP statement and 
a complicated error-handling routine, 
it’s much simpler to check the input 
before the division ever occurs: 

115 IF D=0 THEN PRINT “Division 
by zero is a no-no.’:GOTO 110 

Another problem happens when 
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the user tries to put too many num- 
bers into an array. Rather than check 
for an array dimension error we can 
avoid a problem by counting the 
numbers as they are entered. 

100 TRAP 40000:REM Let the oper- 
ating system handle any errors 

110 DIM NUMS(100):I=0 

120 IF I1=100 THEN ? “I can’t ac- 
cept any more numbers.’:GOTO 200 

130 [=14+1:? “What is number’”’;I; 
“(or 999 if done)’; 

140 INPUT N 

150 IF N=999 THEN ? “Numbers 
entered.”:GOTO 200 

160 NUMS(I)=N 

170 GOTO 120 

200 END 


ADVANCED TECHNIQUES 


Believe it or not, errors aren't al- 
ways bad. Error codes often show 
what’s going on inside the machine. 
After we’re comfortable with error- 
handling routines, we can use this in- 
formation to make our programs 
more user-friendly. 

Before we go on, we need to know 
how to find out where in the program 
an error has occurred. The line num- 
ber where the error occurs is stored 
in memory locations 186 and 187. To 
get the value, we'll create a variable 
ERL and assign it the value PEEK(187) 
* 256 + PEEK(186). 

Atari BASIC returns a type mis- 
match error if it expects a number to 
be entered, but instead the user sim- 
ply presses the [RETURN] key. This 
is because it interprets the [RETURN] 
as a single character string. Knowing 
this, let’s set up a loop that accepts 
numbers until a [RETURN] is pressed. 

100 TRAP 30000:REM Set error 
trap 

110 DIM NUMS(100):I = 0 

120 IF I=100 THEN ? “I can't ac- 
cept any more numbers.’:GOTO 200 

130 I[=I4+1:? “What is number’’;I, 
“(or <CR> if done)”’; 

140 INPUT N 

150 NUMS(I)=N:GOTO 120 

160 ? “Numbers entered.” 

200 END 


FEBRUARY 1989 


PROGRAMMING POWER 

30000 TRAP 40000:REM Trap 
turned off 

50010 ERR=PEEK(I95):ERL= 
PEEK(186) + PEEK(187) * 256 

30020 IF ERR=8 AND ERL=140 
THEN 160 

30030 ? “Error’:ERR; “at line’ 
-ERL; “has  occurred.’:GOTO 
200:REM Give up 

Notice that we set a TRAP 40000 
at the beginning of the error-handling 
routine. This is redundant because the 
error which caused you to hit that line 
would disable the error trapping any- 
way. However, it makes this program 
much easier to read and modify. 

Another application is to use error 
trapping to see when a list of DATA 
statements is exhausted. The pro- 
grammer usually knows how much 
data to expect, so you can put your 
READ statement in a loop or check 


each item READ against a number like 
999 or a string such as “END” that sig- 
nifies the end of the data. However, 
you might want to let the user cus- 
tomize the list, in which case having 
to remember how to end it is clumsy. 

An example might be a list of names 
which can be modified depending on 
who's using the program. In the fol- 
lowing program segment, imagine 
we're READing the names of people 
who are sharing pizza. Later, we'll 
print a list of who owes how much 
money. To do this, read the names 
into a string array until error 6—Data 
List Exhausted—occurs. 

100 TRAP 30000 

110 DIM X$(10), EATER $(200):1 = 0: 
REM Allow for 20 names of length 10 
each. 


115 EATER$=“ ”:EATER$(200)= 
EATER$:EATER$(2) = EATER$:REM 
Set array to spaces 

120 IF [=20 THEN ? “Sorry, list ig- 
nored after”’;X$:GOTO 200:REM Too 
many names 

130 READ X$ 

135 EATERS([* 104+1,1* 10+10)= 
X$ 

140 [=I+1:GOTO 120 

160 ? “The names are in the array.” 

200 REM Continue with program. 

300 END 

20000 DATA Charlie,Gregg, Nat, 
Carolyn,Marta 

20010 DATA Andy,Heidi;Tom 

30000 TRAP 40000 

30010ERR = PEEK(195):ERL= 
PEEK(187) * 256 + PEEK(186) 

30030 IF ERR=6 AND ERL=130 
THEN 160 

30040 ? “Error ‘“;ERR;” at line 
“-ERL;” has occurred.’:GOTO 300: 
REM Give up 

The number of ways to incorporate 
error trapping is virtually unlimited. 
If you're getting data from a disk, you 
can use the above idea to read from 
the file until you get an error 136— 
End of File. If your program is going 
to write a file, a quick way to tell if 
the file already exists is to try to read 
it first. If it’s not there you'll get error 
number 170—File Not Found. Using 
error trapping to check for this is 
easy—and may save someone from 
overwriting an important file. 

Like any aspect of programming, a 
good error-handling routine should 
be “invisible” to the user. If you have 
an idea of which kinds of errors to ex- 
pect, you can troubleshoot potential 
problems without the user ever 
knowing something’s gone wrong. 
On the other hand, if your error- 
handling routine can’t figure out what 
to do, you can at least print out error 
messages in plain English and give the 
user a chance to recover from the 
problem without a crash. Whatever 
the situation, error trapping is an ef- 
fective way to make your programs 
polished, professional, and easier to 
run. A 


51 


PROGRAMMING POWER 


g T\pe-In Software 


Real-World 


Interface 


AN ATARI GROWS ORCHIDS IN TEXAS. BY JOHN LITTLE 


eal-World Interface is a hardware-software project that 
can control a wide variety of electronic equipment 


with your Atari. This BASIC program works on all 8-bit 
Atari computers of any memory size, with disk or cassette. 
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The idea of using a computer to 
control real objects always fascinated 
me. Last summer I decided that some- 
thing had to be done about the prob- 
lem of low humidity in my orchid 
greenhouse and my Atari turned out 
to be part of the solution. 

If you don't have a greenhouse, 
stick around anyway. The first link be- 
tween my Atari and my greenhouse 
is a simple relay that can be used for 
many different applications. And pro- 
gramming the Atari to operate it is 
really easy. Also, the real-time clock 
routine that I use for timing relay 
Operations can easily be incorporated 
into other programs. 

The conventional approach to my 
low-humidity problem would have 
been to use a humidistat to control a 
solenoid valve (operating on house 
current) to control water flow to mis- 
ters or foggers. But there are other 
considerations here in Austin, Texas 
where high heat can be a serious 
problem. I had been searching for 
some type of emergency system to 
cool the plants in case of power fail- 
ure, and the best answer seemed to 
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be drenching them in fog. 

The problem was how to generate 
the fog with no electricity. At the 
same time I decided to install misters 
for humidity, I came across an ingen- 
ious battery-operated water valve. I 
knew immediately that I had found 
not only a means of solving my hu- 
midity problems, but also the key to 
making the elusive emergency system 
work. 

This valve comes with a program- 
mable electronic module to control 
when the water will be on. It was sim- 
ple to remove the module—which is, 
of course, just an elementary 
computer—and connect the valve to 
a much more complex computer, my 
Atari. Originally, the valve could be 
set for a maximum of four time 
periods per day, with the shortest 
time period being one minute. But 
with the Atari, I can turn the misters 
on for just seconds, and I can do it 
as many times a day as I want. 

Just as important, with this setup 
I can be sure the misters don’t come 
on when they shouldn't. Orchids 
should not be wet when the temper- 
ature is too low, and they should al- 
ways be dry by nightfall. A thermostat 
placed in the circuit between the valve 
and the Atari makes sure that the mis- 
ters don’t come on if the temperature 
is too low. And this program lets me 
choose the earliest and latest times for 
the misters to come on. 


RELAY OPERATIONS 


Finally, the circuit and program are 
set up so that instead of operating the 
relay to turn on the misters, as you'd 
expect, the relay shuts off the misters 
when it operates and turns them on 
when it releases. If the power fails and 
the Atari goes down, the relay releases 
and the misters stay on, providing 
some relief from the heat until power 
is restored. Then, because of the in- 
ternal design of the joystick ports, the 
relay will operate automatically and 
shut off the water without needing a 
program to tell it to. And the green- 
house fans can start drying things off. 
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PROGRAMMING POWER 

The first step in controlling the re- 
lay is to configure the joystick port— 
the two jacks that the joysticks plug 
into. PORTA refers to Jacks 1 and 2. 
On the early Atari 400 and 800 com- 
puters, PORTB refers to Jacks 3 and 4. 

These ports use memory-mapped 
I/O (input/output), which means each 
port corresponds to a one-byte mem- 
ory address. Pins one through four in 
jack 1 correspond to bits zero through 
three at address 54016 (PORTA), and 
the same four pins in jack 2 corre- 
spond to bits four through seven at 
that address. By manipulating the data 
at that address with POKEs in BASIC, 
we can control whether each one of 
those pins is used for input or output, 
and what data we send. 

Now we configure for input or out- 
put. Address 54018 (PACTL) is the 
PORTA controller. When bit 2 of 
PACTL is set to 0, any value POKEd 
into PORTA determines whether the 
individual pins of the port will be out- 
put or input pins. When bit 2 is set 
to 1, any value POKEd into PORTA is 
considered data for output. 

Line 340 of the Real-World Interface 
program shows how bit 2 is set to 
zero. Its normal state is 1. To set it to 
0, we subtract 4 (the decimal value 
represented by bit 2) from the origi- 
nal contents of PACTL, after saving the 
original contents in ORIG. 

POKE PORTA with 255 to set all 
eight I/O pins for output. Finally 
POKE ORIG back into PACTL so that 
PORTA can send whatever data is 
POKEd into it. 

Output from the joystick ports is bi- 
nary, which means it can be in one 
of only two possible states: zero and 
one (also called low and high). Your 
Atari interprets these states as ground 
and +5-volts. Each pin that has a 0 
in its corresponding bit in PORTA will 
send a zero or ground. Each pin with 
a 1 in its corresponding bit will out- 
put +5 volts. The +5 volts is how we 
operate the relay! 

When you turn on your Atari, each 
pin has +5 volts. If your project is 
plugged into the jack when you turn 


your Atari on, the relay will operate. 
Then, when you configure the port 
for output, the pins will automatically 
drop to ground and your relay will re- 
lease until you POKE the appropriate 
value into PORTA. This must be kept 
in mind when planning how your 
project will operate. In my case, I must 
remember to shut off the water valve 
in my greenhouse or the misters will 
come on when I start the program. 


THE CIRCUIT 


Before we get any further into the 
circuit, there’s something you need to 
know about the difference between 
PORTA and PORTB. In the 800 and 
400 each of the I/O pins in PORTB 
has a little “helper” in the form of a 
+5 volt source connected through a 
4.7K resistor. The PORTA pins don’t 
have this and when you send a “high’”’ 
through a PORTA pin, it doesn’t have 
nearly enough power to make this cir- 
cuit work. 

So I added a “helper”’ to this cir- 
cuit for XL/XE owners who have only 
PORTA available. In Figure 1, resistor 
R3 is drawn with a dotted line. R3 is 
a 4.7K resistor that supplies +5 volts 
to the output line, similar to what’s 
built into PORTB. You can operate this 
circuit from PORTB on an 800 or 400 
if you omit resistor R3 and make the 
programming changes I'll specify 
later. 


WATER VALVE 


As it comes from the factory, the 
RainMatic Corp. water valve has a 
compartment for four C batteries, and 
an electronic programming module 
with an LCD display for setting up the 
watering schedule. I removed the pro- 
gramming module to connect the 
Atari in its place. I also removed the 
battery compartment and substituted 
a longer-life 6 volt lantern battery. 
This left two sides of the assembly 
open, so I had to make two crude 
plastic covers and caulk them well, to 
keep moisture, dust, and insects out 
of the valve assembly. The wiring sim- 
ply comes out through the caulk. 
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THERMOSTAT 


TO THERMOSTAT AND VALVE. 
(SEE FIGURE 2) 


JOYSTICK PLUG 


Figure 1, Attaching the relay to the joystick plug. 


The lead from the negative side of 
the battery first hits the thermostat, 
assuring that the valve will stay closed 
until the air temperature in the green- 
house is high enough. 

(see figure 2) 

The normally closed (NC) pin of 
the relay is connected to the black 
wire of the valve coil, which opens 
the valve. The normally open (NO) re- 
lay pin is connected to the green wire 
of the valve coil, which closes the 
valve. 

Normally the valve is open and the 
water flows. To turn the water off, my 
program POKEs a 1 into PORTA and 
+5 volts is sent on pin 1. This closes 
the relay and voltage from the lantern 
battery is applied through the ther- 
mostat and the relay to the green lead 
on the valve, which closes. 

Voltage continues to be applied to 
the green lead, but nothing happens. 
There is no battery drain because a 
switch inside the valve opens the cir- 
cuit. When it’s time for the water to 
come on again, the program POKEs 
QO into PORTA. The relay releases, 
removing voltage from the green lead 
and applying it to the black lead. The 
valve opens and the water flows 
again. 

A lead runs from the COLD side of 
the thermostat to the green wire of 
the valve. This insures that the valve 
will automatically close if the temper- 
ature drops below the threshold while 
the water is on. 
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LANTERN 
BATTERY 


PARTS LIST 
Radio Shack #276-168 
IK Ohm Resistors 


PC BOARD 
RI, R2 
R34 4.7K Ohm Resistor 


TRANSISTOR 

RELAY Radio Shack #275-216 
LED from Radio Shack 

9-conductor ribbon cable 

9-pin female connector 


THE CLOCK 


The heart of my Atari clock is a 
machine-language program running 
in the vertical-blank interval. It is 
based on OS location RTCLOK (18, 19, 
20), but only reads location 20, which 
counts jiffies (1/60 seconds). 

Real-World Interface uses locations 
19 and 18 to store the count of 
seconds and minutes, respectively, 
obtained by watching the content of 
location 20, resetting it when it 
reaches 60, and incrementing the 
seconds count at the same time. 

I wanted to store the count of hours 
in Page O so it could be accessed 
quickly. I chose location 207, which 
seems to be unused by most versions 
of DOS and BASIC. I also used 208 
and 209 for counting jiffies. Location 
20 is actually updated every 
1/59.92334 second—not every 1/60 
of a second. In the short run, this isn’t 
enough of an error to cause much 
trouble. But with a continuously run- 
ning clock, the error builds up sur- 
prisingly fast. 

So I built a correction factor into my 
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VALVE 


Figure 2, Attaching the relay to the valve and the thermostat. 


clock. Since the Atari timer gains a 
tiny fraction (0.07666) of a jiffy each 
second, I calculated how many jiffies 
it was gaining in a minute (4.5996). 
Dividing this number into the num- 
ber of seconds in a minute yielded 
13.044612 seconds, which told me 
how often I needed to increment the 
jiffy counter to keep the clock as 
accurate as possible. Since 13.044612 
seconds equal 782.67672 jiffies, I 
rounded off my number to 783. 
That’s what the clock program counts 
to before adjusting the jiffy counter. 

I realize this may seem like nitpick- 
ing to some, but achieving the highest 
possible accuracy allows a continu- 
ously running program like my green- 
house tender to go longer between 
clock resets. 


ABOUT THE PROGRAM 


Type in Listing 1, INTRFACE.BAS, 
check it with TYPO II and SAVE a 
copy before you RUN it. 

Some simple line-editing will turn 
INTRFACE.BAS into a universal relay- 
controlling program. Since the water 
goes on when the relay is off, all that’s 
required is to replace the word WA- 
TER with RELAY and ON with OFF 
(and vice versa) in the following lines: 
900, 920, 1020-1070, 1112-1160, 1190, 
1200, 1280, 1320. Also swap lines 
500 and 510. 

To RUN the program using PORTB 
on an Atari 400 or 800, just change 
line 5 to: 5 LET A800=1 
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When RUN, INTREFACE.BAS loads 
my machine language timing routine 
into the second half of Page oO. 

Next, the variables are declared and 
the clock is initialized beginning at 
line 100. The program asks if you 
wish to reset the clock, which is on 
a 24-hour cycle, not 12 hours, and will 
accept either an uppercase or lower- 
case response. 

If you choose to set the clock, the 
time is displayed onscreen until you 
press [START]. If the clock hasn't been 
set, don’t answer No to the reset 
prompt, otherwise the clock will run 
at one-fourth speed. Merely stopping 
INTRFACE.BAS will not stop the 
clock. 

After configuring the port for out- 
put, the program calls subroutines at 
lines 880 and 1110 that request all tim- 
ing parameters. These parameters 
specify how the relay will function. 
First the program asks for the earliest 
and latest start times. If you answer 


PROGRAMMING POWER 
the first prompt with a [RETURN] 
only, it will assume that round-the- 
clock operation is Okay. 

Next, the program asks for the 
length of time you wish the water to 
be on, and the length of time you 
wish it to be off. If you press 
[RETURN] at each of these prompts, 
the program jumps to the manual 
operation routine at line 1240. This 
routine asks if you wish to turn the 
water on or off before exiting the 
program. 

Before operation actually begins, 
the time is displayed at the top of the 
screen. Several options are offered at 
the bottom of the screen. 

At this point you can stop the pro- 
gram with the water on, stop with wa- 
ter off, or if you want to change one 
of the parameters, you may re-start the 
program without resetting the clock. 
These options are also available while 
the program is running. 

Finally, press any key to start the 


timer. 


PROGRAM TAKE-APART 


In lines 440-460, the program 
checks to see if it’s time to operate a 
relay. If so, lines 500 and 510 initial- 
ize variables before calling the timing 
and relay subroutines. 

In lines 600-730, the program gets 
the correct time, adds to it the amount 
of time specified for the relay to be 
operated or released, and adjusts any 
minute or second values greater than 
60, or hour values greater than 24. 

Lines 770-820 contain the timing 
loops, one each for second, minute, 
and hour. 

Lines 840-847 hold the subroutine 
that displays the time at the top of the 
Screen. A 


John Little has been programming Ataris 


and tinkering with hardware projects 
since 1984. 
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with your trade-in 


All references to trade-ins assume equipment to be in good 
working condition. Shipping/handling will be added to all 
prices. No aes charge for credit cards or COD. Mail order 
prices show 


VISA 


WE CHECK FOR CREDIT CARD THEFT! 


BUY*SELL*TRADE 
Computer 


ES 
UNBELIEVABLE DEALS EVERYDAY! 


1-800- 


MASTERCARD 


BUY-SELL*TRADE 


Used 
520ST FM Computer $399 1040ST Computer $585 
1050 Drive $139 130XE Computer $119 
Parrot Digitizer $28 65XE Computer $85 


Indus GT AT $139 1702 Monitor $139 
Printers from $49 Atari 1027 LQ Printer $79 
Atari 1025 Printer $79 Shanner 7 color prn $109 


Atari 16K Expansion $9 Atari 850 Intfc $69 
Dgtizers/Synths from $29 C1802C Color Mon. $149 
Joysticks from $4 Software/Books from $1 


New 
520ST FM CPU $499 Atari 1040ST Plus+ $719 
$C1224 ColorMon. $325 EZ-RAMII 0K $125 
256K DRAM $10 AtariSX212 Modem $89 


1802D Monitor $189 XF-551 Drive $179 
Atari 65XE Computer $109 Atari 130XE $149 
Avatex 1200eHC $79 Prac.Per.2400HC $189 


R-Time 8 Cart. $49 USDoublerw/DOS $39 
256K upgrades 0k $35 AtariXE Game Sys $159 
Star NX-1000 144cps $189 Epyx 500XJ Joystick $19 


$Cash for your equipment 
Thousands of software & book titles 
Plus, MUCH, MUCH MORE! 
5721 Arapahoe Suite 1B 
Boulder, CO 80303 


Technical 4-347 1-303-939-8144 


DISCOVER 


Repeats 


TRADE-IN FOR ANYTHING WE SELL! 


with trade-in of 1050, 860XL OR $109 with 1050 


47-3457 


AMERICAN EXPRESS 


BUY*SELL*TRADE | 


SCALL for your system 


Authorized Sales & Service for 
COMMODORE/AMIGA 
and ATARI ST/XL/XE 

Computers and Accessories. 


COD 


; | 
aos Cardiac Arrest! 
| a= 1988 Antic Award Winner 


blll outa e 
“Outstanding Product” 
IBM, Apple II, Atari XE, Atari ST 


Anti: “Impressive and amazingly complete.” 
ST World: “Remarkably easy to use.” 
Computer News for Physicians: “Excellent value.” 


You interpret the patient’s history, on-screen EKG, lab 
data, and vital signs, then give treatment orders in plain 
English. Varying degrees of difficulty, with over 45 patients 
— and none is ever the same twice. Go “beyond ACLS” 
with hypothermia, hypocalcemia, hyperkalemia, and 


more. So much fun, non-medical people use the simulator 
to “play doctor.” 

ACLS Teaching Series* 

Cardiac Arrest! 

ACLS Protocols 

EKG Teaching 

CardioQuiz 

Blood Gases 
“The four-disk ACLS teaching Series includes Cardiac 
Arrest!, ACLS Protocols, EKG Teaching, and CardioQuiz 
at 34% savings. 


Mad Scientist 2063 North 820 West 


Software Pleasant Grove, UT 84062 
Visa/MC orders 801-785-3028 


Computer-Assisted Instruction 


QuizPlus 
for Atari ST | 


QuizPlus is a C.A.1.-generating system, 
allowing you to mix tutorials, questions, and 
DEGAS-format pictures to create 
mouse-driven education disks. Includes 
editor and run-time module. 


Quiz-Plus C.A.I. System $29 


We also sponsor a distribution system to help 
you sell QuizPlus education disks you've 
created. This month’s featured QuizShare 
education disks: 


The Solar System $10 
The Circulatory System — $10 
Military Aircraft $10 


Mad Scientist Software 
2063 North 820 West 
Pleasant Grove, UT 84062 


Visa/MC orders call 801-785-3028 


THE AMAZING NEW : 
VOICE MASTER. sun 


TURNS YOUR 
COMPUTER 

INTO A TALKING 
AND LISTENING 
SERVANT 


Get speech output and fF 

voice recognition in ONE pro- I 

duct. Voice Master Jr. is easy = ~ 

to use with new commands added to BASIC. A music 
bonus lets you write and compose by whistling the 
tune! Unlimited uses for fun, education, practical ap- 


plications. Demo programs included. Price only 
$39.95 including software and manual. A Patented 
price/performance breakthrough! 


TO ORDER BY MAIL include $4 shipping & handling 
($6 Canada, $12 overseas) per order. Visa, Master- 
Card phone orders accepted. Available for 
C64/128 and Atari 8OO/8OOXL/130XE. Specify 
when ordering. 30 day money back guarantee, 
one year warranty. Other enhanced voice |/O 
systems are available for Commodore, Apple, and 
IBM computers. 


Call or write today for FREE Product Catalog 


COVOX INC. (503) 342-1271 
675 Conger St., Eugene, Oregon 97402 


EQUIVALENCE 

continued from page 48 

name table. Be sure your program 
knows how to search through the 
variable tables for the information it 
needs. 


OTHER USES 


The previous examples mostly 
speed disk I/O. But there are many 
other powerful ways to use equiva- 
lenced variables, such as creating and 
manipulating pseudo-records and 
defining pointers. 

Pascal lets you to declare RECORD 
data types. A RECORD is a variable 
which contains other variables. For 
example, a single RECORD variable 
for a banking program might contain 
a person’s name (a string), an account 
number (an integer), and account bal- 
ance (a floating-point number). 

You can emulate a RECORD in BA- 
SIC by consecutively equivalencing a 
set of variables into one large string. 

This form may be useful for creat- 
ing a small database or other systems 
where you need to keep data grouped 
together in a particular fashion. 

You can also use equivalenced vari- 
ables to emulate pointers. Just find the 
string’s eight-byte block in the variable 
value table and change its offset (bytes 
three and four) to point to the desired 
memory location. In Listing 1, for ex- 
ample, we made the string point to 
the audio control registers. 

Try some high-speed screen I/O. 
Create a string the same size as the 
screen and point it to screen memory. 
Anything you put in the string will ap- 
pear onscreen instantly. 


PROGRAM TAKE-APARTS 


Listing 1 equivalences a string with 
the audio control registers, memory 
locations 53760-53767. S$ is an eight 
byte string that is offset so that it 
points to those locations. CH$ con- 
tains the frequency, distortion, and 
volume values for each of the eight 
audio control registers. 

The first part of Listing 1 takes the 
frequency, distortion, and volume 


values from CH$ and puts them into 
the SOUND command. 

You could speed up this routine by 
storing these values in an array. This 
would avoid the string-to-floating- 
point conversions, but would require 
4,608 bytes of memory instead of 256 
bytes (nine times more space) and 
would still be slower than the second 
part of the program. 

In the second part, the program sets 
S$ as a pointer to the audio control 
registers. They are set very quickly by 
copying eight-byte substrings of CH$ 
into S$. 

Listing 2 demonstrates the gener- 
alized method for equivalencing vari- 
ables. As written, it can be RUN in 
Atari BASIC or Turbo BASIC XL. 

Listing 2 begins by asking for the 
size of the floating-point array M(). 
After DIMensioning M() and the 
string variables, Listing 2 finds the 
location of each of the variable tables. 

Next, the program jumps to the 
subroutine at line 2000 to find the 
variable number, offset and dimen- 
sions of M() and S$. The actual 
equivalencing of M() and S$ occurs 
in lines 380-500. Lines 520-1250 con- 
tain the I/O and initialization bench- 
marks for the data in Figure I and 
Figure 2. 

The subroutine at line 1500 con- 
tains a timer and the subroutine at line 
1600 prints the first five elements of 
M() to show that the contents of M() 
actually do change during the bench- 
mark routines. rN 


Doug White of Arlington, Texas uses his 
1200XL as an aid in designing and test- 
ing loudspeakers. This is his first appear- 
ance in Antic. 

Listing on page 32 
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PRODUCT REVIEWS 


Celebrity Cookbook, Cheat! 


CELEBRITY COOKBOOK 


Liz Taylor’s diet lunch, Rock Hud- 
son’s hot buttered rum, Boy George's 
diet breakfast, Ronald Reagan's 
corned beef, Sophia Loren’s first- 
course pizza. . . Does your recipe fil- 
ing system consist of musty 3-by-5 
cards and food-stained newspaper 
clippings stuck into your crumbling 
copy of ‘The Joy of Cooking”? With 
this first installment of a promised six- 
volume Celebrity Cookbook series, 
it’s easy to take charge of your recipes. 

The software contains 50 celebrity 
recipes, plus goodies such as diet 
secrets of the stars, a wine directory, 
bartender’s guide and Perle Mesta’s 
Party Tips. All recipes can be dis- 
played onscreen or printed out. You 
can resize recipes in terms of the num- 
ber of servings and print a shopping 
list for any recipe. 

Menu selection can be made with 
the keyboard, joystick or ST mouse, 
although the joystick action seems too 
fast. The Cookbook’s publisher is 
working on the mouse-driven Graph- 
ics Operating Environment for the 
Atari 8-bit. The joystick doesn’t work 
at all in the main menu—a small flaw, 
but potentially confusing. When us- 
ing the keyboard, the [ARROW] and 
[RETURN] keys do most of the work. 

The heart of the program is the filer 
for your own personal recipes—My 
Favorite Recipes. This is really a small 
word processor and database, with 
cut-and-paste and search functions. 
You can ask for chicken recipes, 
recipes using anise, or recipes under 
a heading you define as ‘‘I’m tired and 
it’s easy.’ With a little experimenta- 
tion, anyone can start filing right 
away. But don't go too far too soon, 
print the help file first. It explains the 
data entry process, defining your 
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Recipes 


fields and the more advanced func- 
tions of the filer program. 

To me, a recipe filer seems to be one 
of those applications for which the 
technology of choice is still pencil, 
paper and rusty 3x5 file box. Our 
computer lives close to the kitchen— 
in the dining room, cohabiting with 
10,112 toys. But typing in all of our 
recipes seems like an awful lot of 
work. And my review copy had a 
printing bug. My personal recipes 
printed out fine, but the celebrity rec- 
ipe printouts repeatedly crashed the 
computer. I mailed the disks back to 
the company around the time it 
moved from Palm Springs to Mary- 
land. At deadline I had received no 
response. 

If you do want your recipes on 
disk, Celebrity Cookbook is for you. 
The program is fun, easy and well- 
conceived and designed. Now if I 
could only figure out how to attach 
my blender to the cartridge slot.— 
DAVID MERRIHUE 


$29.99, 48K disk. U.S.A. Media, 7810 
Malcolm Road, Clinton, MD 20735. (301) 
868-5494. 


CHEAT! 


Cheat! intrigued me immediately. 
I don't know how many times I’ve 


wished I'd had unlimited lives in a 
video game, or that I could advance 
past that screen that had confounded 
me for countless days and countless 
quarters. Well, although Cheat! won't 
help you very much in the arcades, 
at least home players can end some 
of the torture. 

Cheat! is a game utility which 
makes a working copy of your favor- 
ite game, modified to allow unlimited 
lives. The only drawback of Cheat! is 
that it will only work for the titles it 
recognizes. And while the list is more 
than 100 titles long, there were only 
a couple of titles I had even heard of 
(and only one that I had available)— 
and I have hundreds of commercial 
games. Perhaps the other titles were 
public domain or shareware. 

But this aside, I selected Boulder 
Dash from the list to see how Cheat! 
worked. And it didn’t. I followed the 
instructions precisely. Cheat! told me 
it couldn't locate the ‘“‘Lose Life Rou- 
tine,’ or something like that. Then it 
babbled about sector locations— 
gibberish to a technical novice like 
me. I can run any program, but I’d be 
hard pressed to peek into any disk 
files. 

In short, if you’re thinking of buy- 
ing this one, make sure it works with 
some of your titles, or you'll be stuck 
with a $25 conversation piece. 

While I don't think that any game 
on the market would drive me to buy 
Cheat!, I’m sure that some of you have 
programs you still haven’t mastered, 
or a level or two you still haven't 
visited. Cheat! might be your only 
hope. —STEVE PANAK 


$24.95, 48K disk. Alpha Systems, 1012 
Skyland Drive, Macedonia, OH 44506. 
(216) 467-5665. 
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PRODUCT REVIEW 


X-1000 RAINBOW 


First affordable COLOR dot-matrix printer. By Matthew Ratcliff 


he Star NX-1000 Rain- 

bow is the first affordable 

and practical graphics- 

capable dot-matrix color 
printer. First there was the Epson JX- 
80 dot-matrix, which cost about five 
times more than the Rainbow. Then 
there were the more affordable 
Okidata thermal-transfer color 
printers, which used very expensive 
ribbons, were extremely slow, did not 
work with many popular printing 
programs and did not do a very good 
job of printing normal all-text pages. 
The NX-1000 Rainbow provides all 
the practicality of a standard dot- 
matrix printer, plus the beauty of 
vivid color—all at a reasonable price. 
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Except for color printing, the Rain- 
bow is nearly identical to the standard 
NX-1000 printer reviewed by Gregg 
Pearlman in the October 1988 Antic. 
The Rainbow also has several type- 
styles and fonts, all selectable via mul- 
tiple panel-button presses—including 
draft and near letter-quality Courier, 
two Orators and Sanserif. 

Unfortunately, color selection was 
not added to the panel for the Rain- 
bow. Most software does not directly 
support color printing, so this would 
have been a very convenient enhance- 
ment. The Rainbow is completely 
Epson JX-80 compatible, and for 
Atari ST users a DEGAS printer-driver 
called JX80. PRT is already available 


on CompuServe’s SIG-Atari. 

Atari 8-bit owners can print color 
graphics on the NX-1000 Rainbow or 
the JX-80 with YEMACYB/4 software 
($29.95) by Electronical Software, PO. 
Box 8035, Rochester, MI 48063. This 
color screen dump utility is capable 
of printing your favorite Micro Illus- 
trator formatted pictures in full color. 
Naturally, the 8-bit needs a printer in- 
terface such as ICD’s P:R: Connection 
to work with the NX-1000. 

The Rainbow has a rear tractor feed 
mechanism, giving it the ability to 
perform a reverse form feed. I’m will- 
ing to put up with the nuisance of a 
rear tractor feed (it’s difficult to get to 
and load paper properly) for this ad- 
ded feature, which greatly simplifies 
color separation printing. 

Using Publishing Partner Profes- 
sional software, the Atari ST can print 
images in color separation style, each 
color requiring a separate pass 
through the printer, followed by a re- 
verse form feed. The entire page is 
printed first in magenta, then cyan, 
yellow and black. The original YE- 
MACYB program (Reviewed in the 
July 1987 Antic, also available for 
$29.95 from Electronical Software.) 
supports multi-color printing like this 
on single-color printers, prompting 
you to change the color of the ribbon 
between each pass. With the NX-1000 
Rainbow and YEMACYB/4, you get 
faster and more convenient one-pass 
color printing. 

I was able to find some classic 
DEGAS pictures and print them on 
the NX-1000 Rainbow. Since I have 


ANTIC, THE ATARI RESOURCE 


LESLEY MERE NERS LL 
Siotestasretatctsten om 
siete 


on 


ne 
ERASER A DSLEU NE PR Lee 
i Trey 


The Rainbow provides the prac- 
ticality of a dot-matrix printer, 
plus the beauty of vivid color. 


been playing with Lightspeed C on 
the 8-bit Atari growing Mandelbrot set 
fractals (Antic, November 1988), I had 
a lot of fun dumping color fractals to 
the Rainbow as well. The Rainbow 
does a very good job, much better 
than the Okidata thermal-transfer 
printers. And pictures are much less 
expensive to generate, thanks to the 
Rainbow’s multi-pass fabric ribbon. 

The ribbon has four color bands: 
black, cyan (blue), magenta and yel- 
low. It seemed to wear out rather 
quickly. Many of the newer printers 
using cartridge ribbons have small re- 
inking rollers built in, but the multi- 
ple color bands of the Rainbow's rib- 
bons make such re-inking impossible. 
NX-1000 color ribbons cost about $11 
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each and the black-only ribbons run 
approximately $0. 

Colored text is quite simple to ac- 
cess from any word processor. Color 
and font commands are sent to the 
printer by placing the letter C for 
color, or F for font selection, within 
a pair of double parentheses followed 
by a single ASCII digit indicating the 
font or color selected. ((C))1 would 
tell the Rainbow to print RED text. 
((F))O would select the near letter 
quality Courier font. 

The only drawback with these five- 
character command codes is that your 
word processor treats those charac- 
ters as text, but the printer gobbles 
them up as a command. This may 
cause some margin problems in your 


text, but you can work around this by 
keeping color and font commands on 
lines separate from the main body of 
the text. Colors such as green are 
created by the printer in two passes, 
first in yellow and then reprinting the 
line in cyan. When NLQ printing is 
enabled, all text is printed twice to get 
the higher resolution. If you have a 
rather tired ribbon, you may wish to 
enable double-strike printing for a 
darker output. Printing green, NLQ, 
double-strike text on the NX-1000 
Rainbow will require six passes of the 
printhead per line of text! The out- 
put is beautiful, but slow. 

I have found that you can select a 
single color, say green or red, froma 
simple BASIC program and then run 
the Hi Tech Expressions 8-bit pro- 
grams Print Power or Sesame Street 
Print Kit. All your cards and posters 
will print in that chosen color. 

Other features of the NX-1000 Rain- 
bow include some niceties like a 
power switch at the front, where it 
belongs. The printer connector and 
power cord are on opposite sides of 
the printer, not hanging off the rear 
where they can obstruct the paper 
path. Print and graphics quality of 
both black and color are very ac- 
ceptable. 

The rear tractor feed also provides 
for a feature called Paper Park. The 
Rainbow will reverse feed the paper, 
extracting it completely from the 
platen. Changing from tractor to fric- 
tion feed, you can insert single sheet 
paper from above the printer. When 
done, simply return to tractor feed 
and press the panel buttons for a form 
feed. The Rainbow will automatically 
reload your paper. Unfortunately, the 
printer does not find the precise top 
of form upon reload, requiring man- 
ual adjustment. 

The NX-1000 Rainbow has added 
a whole new dimension to my per- 
sonal computing. A 


$379. Star Micronics Inc., 200 Park 
Avenue, New York, NY 10166. (212) 
986-6770. 
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SERIOUS BUSINESS 


Can you really run a business on your Atari? You 
bet! TurboBase from MicroMiser is serious software 
for serious businesses. It computerizes your whole 
office with General Ledger, Accounts Receivable, 
Accounts Payable, Payroll, Inventory, Point of 
Sales, etc. It’s alsoa REAL database with REAL 
power to organize your information. After giving up 
on other databases, many happy customers use 
TurboBase for its database power alone. 


_- 


TurboBase is equal to anything running on IBM 
PCs, but costs thousands less. Hundreds of success- 
ful business are running on TurboBase. This is 
a comprehensive package; it’s flexible and sophisti- 
cated. Expect to spend about six weeks learning to 
get the most out of it. Of course MicroMiser pro- 
vides complete professional support. 


Now TurboBase 80 demolishes the final advantage 
of more expensive machines. It works with the Atari 
XEP 80 adaptor to give your work a full 80 col- 
umn display. See twice as much information at a 
glance. Lay out your reports and forms exactly as 
they'll appear in print. If you don’t already have the 
Atari XEP 80 adaptor, we'll provide that for you, 
too. 

TurboBase (TH0015)..........cccccccceeeeeeeeeees $159.95 
TurboBase 80 (requires XEP 80) (TH0016) $179.95 
Atari XEP 80, 80 column adaptor (TH0017). $79.95 


EVERYONE'S FAVORITE 


SUPERDOS 5.0 supports all drives and densities 
with auto-sensing so you'll never again worry about 
mixed formats. Plus, you get support for RAMdisks 
(up to 320K), and you can restore deleted files and 
patch damaged ones and much more. Only SUPER. 
DOS 5.0 fully supports your new XF551 disk 
drive, yet is compatible with DOS 2.5. SUPERDOS 
is the easiest, friendliest DOS there is. See why 
everyone loves SUPERDOS. Imported from Austra- 
lia by Technical Support. 

SUPERDOS 5.0 (TH0023)........ccc cece: $20.00 


SUPPORT ATARI PRO 
ATARI 400/800/600/ 12002 


-_ STICKYBEAR 
SAYS HI! 


He'll give your kids a headstart. 
Pre-schoolers love Stickybear, 
and so do their parents. He’s the 
most popular name in young people’s 
software for a reason, he’s the best! 
Now these fun, educational programs 
can help your children to grow and 
develop. Don’t neglect the benefits 
your computer offers your little 

ones. Hours of excitment while they’re 
learning valuable primary skills. 
Rated for ages 3-6, but older kids love 
Stickybear, too. Order now and save 1/ 
3! From Optimum Resources/ (A 
Weekly Reader. 


rennet 


Fun /eductional games for kids: 
Stickybear Shapes (TH0018).............. just $19.95 
Stickybear Numbers (TH0019).......... Just $19.95 
Stickybear Opposites (TH0020)........ just $19.95 


Fun games for kids to play with their parents. 
Stickybear Basketbounce (TH0021) just $19.95 
Stickybear Bop (TH0022)........000.00.... Just $19.95 


THE FINEST TEXT 
ADVENTURES 


Infocom always created the greatest 

text advetures. Now the Antic ARCADE 

brings you four of their best, at a fraction of 

the original prices. Find out for yourself why these 
adventures have become the most popular games of 
all time. From Mediagenic/Infocom. 

Mindshadow (TH0024)....... $39:05 now $17.95 
Seastalker (TH0025)........... $39:95 now $17.95 
Moonmist (TH0026)............ $3995 now $17.95 
Wishbringer (TH0027)....... $39:@5 now $17.95 


IC ARCADE 


GRA MERS - BUY SOFTWARE! 
L/600XL/800XL/65XE/130XE/XE GS 


__ 3D DYNAMITE 


Now you can have the kind of 3D ability which is 
revolutionizing graphics on larger computers. With 
Super 3D Plotter II from Elfin Magic, your 8-bit Atari 
delivers Cyber Power. Plot complex solid objects. Spin 
them, rotate them, view them from any angle or 
distance. Work with a joystick or enter data num- 
erically, or both. Super 3D Plotter II is the most 
advanced solid object modeling program available on 
any 8-bit computer. And now the price’s reduced 25%. 
Super 3D Plotter II (TH0028)..... $395 now $29.95 


__ COMPUTERIZE YOUR HOME 


The X-10 is the most popular home control system. And 
no wonder, you don’t need expensive rewiring. X-10 
offers interfaces for all popular computers EXCEPT 
YOUR ATARI. Now Terrific Corp. comes to the rescue 
with the PowerManager. It hooks your Atari to any X-10 
interface designed for any other computer. 


Now your Atari controls the lights, appliances, thermo- 


stats, fans, alarms, and anything else electrical. Regu- 


late outside lighting for security, safety, and beauty; 
never come home to a dark house again. Control when 
the kids watch TV. Manage your furnace and air condi- 
tioner, save money on energy bills. Software and cable. 
(Requires CP290 Powerhouse Interface from X-10). 
PowerManager (TH00239)............. $3906 now $24.95 


25% off i 


| PRINT SHOP 
FONTS AND BORDERS 


Everybody’s got lots of Print Shop pictures, but where do 
you find fonts and borders? Right here! We have the 
whole collection from No Frills Software, all four disks! 
(Requires Print Shop upgraded with the Print Shop Companion and 
XL/XE with at least 64k). 


PS Fonts and Borders #1 (TH0030)................. $14.95 
PS Fonts and Borders #2 (TH0031)............0.... $14.95 
PS Fonts and Borders #3 (TH0032)................. $14.95 
PS Fonts and Borders #4 (TH0033).......0.....0... $14.95 


Print Shop and Print Shop Companion® Broderbund Software 


_PS FONTS | 


_ HALF PRICE MIDI! 


Yes, prices for these fabulous Hybrid Arts hard- 
ware/software systems are slashed in half. All you 
need to control MIDI from your Atari. MIDI Track 
controllers are the most sophisticated 16 track 
sequencer/editors you can get. Compose, edit, and 
play your creations. Use MIDI Track in your music 
room, or use it in your concerts. It’s equal to any- 
thing around - at a fraction of the cost. Plus you can 
instantly find and load the exact sounds you want 
with the famous Hybrid Arts Patch Librarians. So, 
whether you're a garage band on the way up, a 
successful professional, or even if your family just 
gathers around the keyboards in the evening, MIDI 
is your future in music. And MIDI is Hybrid Arts. 
MIDI Track II (TH0034).......0000002.. $850 now $174 
MIDI Track III (128K) (TH0035).. $34étnow $187 
Plus these great Patch Librarians: 

CZ Librarian (for Casio CZ keyboards) 

Cc: ee $79095 now $39.95 
DX Libraian (for Yamaha DX Keyboards) 
oy $79095 now $59.95 
Gen Patch (generic, for all equipment) 

ls | $149.95 now $74.50 


__ PERSONAL POWER 


You paid for Player-Missle Graphics, Display List 
Interrupts, superb sound, etc. - why can’t you use 
them? Now you can! Advan BASIC is the most 
powerful language ever created for your Atari. 
But it’s also the easiest to use. Write high speed, 
professional-quality, software. It’s easy and fun. 
Since it’s BASIC, it’s very easy to use. Since it’s 
compiled, it’s very, very fast. Order now, save 25% 
Advan BASIC (TH00339).......... $39.95 now $29.95 
Modules to increase your productivity: 
Utilities Pack (includes runtime) 
as | $29.95 now $24.95 
Screen Design (for the professional look) 
geal | $2995 now $24.95 
Optimizing Compiler (when speed's everything) 
CC) $2495 now $19.95 


THE ARCADE PRESENTS 


THE ANTIC ARCADE NI 
YOUR PURCHASES GUARANTEE | 


/ 
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& pRropuctivity TOOLS 
TO KEEP YOU AHEAD 


CREATIVE PROCESS - This amazing outline 
processor organizes your ideas for writing - or for 
anything else, (A POI6 1 ossicsiccaraninnnacassasecsevrace $19.95 
SPELL MAGIC - Catch embarrassing spelling 
errors in your reports and letters. Works with any 
word processor. (APO144).......ccccecceeseeeeeseceeees $19.95. 
PRINTER DRIVER CONSTRUCTION SET - 
Make your AtariWriter cartridge compatible with 
Any PLINTEe, (A POTD) rceiscanrmnecnncemcceencs $19.95 
BACKTALK 1.2 - The programmable macros 
automate your telecommunications, save you time 
and money. (APO154)........ccccccesseeessecessecensses $19.95 
CHAMELEON TERMINAL EMULATOR - Call a 
mainframe with your Atari: TTY, ADM-3A, VT-52, 
BES ds GEE 11 csrnsewniaan ena tansatasniepbaitonnancnons $19.95 
DISK SCANNER - Recover damaged or deleted 
files on single or double density drives. 

CO Et) ae $15.95 
SHERLOCK 1050 - Recover damaged or deleted 
files on single or enhanced (dual) density drives. 
0 lecriniseenionen teoces niantanainianaitahdicbietaeihietamananiscie $19.95 


ORDER BY MAIL! 


Send check or money order to: 


Antic Software#MA839, 
544 Second Street, 


San Francisco, CA 94107. | 
or phone toll free 


$20.00 minimum order, please include 
$3.00 shipping and handling per order. 
California residents add 6.5% sales tax. 


XTAL (CRYSTAL) - Command a star cruiser! 
Detailed effects are everywhere. More than a game: 


BU OIC. (PII). cennscosisccnanstensinsanassensessiianadéranensaes $15.95 
BLUE TEAM BRIDGE - Tournament level. Play at any 


time, improves your bidding-or learn to play. Great 
etic e140); |) a $15.95 


A _EXCITMENT, CHALLENGE, 
AND WONDER 


ASTROLOGY - Create beautiful charts for your 
family and friends. Imaginative gifts, always 
PORE. TAP OIG) saacsssecctusnsiensnsminssedosaccnseness $15.95 
ATARIORACLE - The computer OUJI board. 
Predicts the future, answers all questions, picks 
LOTTO numbers. (APOIUSB): csccwisscscsnrsstdedecants $15.95 
CRIBBAGE and SEVEN CARD STUD - Two 
great card games. The poker players don’t cheat, 
but they bluff. (APO173)........... ccc ccecccceeeeseees $15.95 
COLOSSUS CHESS 3.0 - The best Atari chess 
game for the serious player, beginner or Grand- 
PO GI ccsirnecnsrtrpamusinbanticiectel GiactoneeneCheintins $15.95 
PUZZLER - Infinite jigsaw puzzles, use your own 
pictures. Set difficulty level for any age group. 
Fe | a ane eT ane $12.95 
BUMPOMOV’S DOGS - A two-player, non-violent, 
action game you can enjoy with your kids. Great 


family fun. (APO112)..... cele cecccesscesscesecees $12.95 
BURGERS - Computer fun for younger kids. If you 
eat too many burgers, POP! (APO109)........... $12.95 


TAXICAB HILL - Delightfully chaotic as other 
cabbies steal your fares. Variety of neighborhoods, 
SUGAR TONING, CAPT Ts ccconnnencmvnacaceeltetercssbiasanas $15.95 
DIGGERBONK - Scrolling, multi-screen arcade 
excitement for kids of all ages, complete with a 
PAS OO. CAPT) essscccssiccnitertitaseaasesatiniaes $12.95 
DRAGON’S QUEST - A wonderful illustrated 
adventure game for your entire family. Fast and 
fantastical. (APO) cisinconssseusdnsstessorveeksiiteatat uate $15.95 
KING TUT’S TOMB and CONSTRUCTION SET 
- 48 dangerous, multi-screen tombs, or construct 
VOUT OW. CPO) sis csnsesnsrennneseioeseadirapnexeane $15.95 
LORD OF THE ORB - Intense arcade action as 
you search the huge scrolling castle for the stolen 
Bs I esccareceoninnscin txscetsicnslp laatasiete te debiclomane $15.95 
CHOP SUEY - Joystick-busting, action-packed, 
martial arts excitment. One of our all-time best 
sellers. (APONTE). ...csscucsanncanawisdiuin isien'vacel eacwanwnss $15.95 
MARS MISSION II - Streak through the skies and 
the caverns of Mars. Furious action is everywhere. 
(Ee? exteacecercaveprepemeniaicotbinneiitte be eee $15.95 


24 HOURS 
ee 


EDS YOU - HELP US GROW 
UTURE SOFTWARE FOR YOUR ATARI 


800-234-7001 


Visa MasterCard 
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(ART + MUSIC + JOY = 
COMPUTER CREATIVITY 


COLOURSPACE - The spectacular visual effects 
generator. Control your own mind-bending light 


I, CB an renin aniinomnnnmnmioninameatin $15.95 
RAMBRANDT - The best paint software, bar none. 
Joystick or tablet. Best seller. (APO157).......... $19.95 


SOLID OBJECT MODULE - Create 3-D objects 
automatically, view from any angle. (Requires 
TAS), CR POLS) 1 carsnsasnasmsanniacmmnusaseniniacses $15.95 
PICTURE PLUS and LISTER PLUS - The 
complete graphics printing set. For almost all 
pictures and printers (APO179). ..1scsesensenroees $19.95 
SCREENPLOT - Print Atari pictures on most 
plotters, including the Atari 1020. (APO135) .. $15.95 
ENHANCED POKEY PLAYER - Compose music, 
change it - experiment. Save the best. Add songs to 
your Proms, (APOIAT) ncwcnecsseesssemarveemscnis $15.95 
ENVISION - Fills all your character graphics needs: 
animation, fonts, multi-screen maps, much more. 
[LD 1d sartnaaarnnnmntnaeeennmennaenaat $19.95 
GRAPHICS SHOP - Convert your own pictures to 
use with Print Shop signs, banners, cards, etc. 
Fy ctecsticnermnmeieginrenmam eens $19.95 


A, POWER TOOLS 


BASIC VIEW - BASIC program analyzer and 
debugger. Write better programs, faster. For beginner 
ie carer. CAP ah ccsnmasinasenmmnsoimmuaty um $19.95 
FLOATING POINT PACKAGE and EXTENDED 
DDT - Easy math for MAC/65 and a great assembly 

ar Or, CAP OIG) cnncmnmenmensmeninnacnmacenass $19.95 
DEEP BLUE C and MATHLIB - Use C, the language 
of the future, now! Includes advanced math library. 
PF naewraiserrusera ecamanwnmanenaernmnetenn $19.95 
INTERLISP’65 - Learn Artificial Intelligence 
programming with LISP, available now for your Atari. 
A) | nisin onscranreainacssiemainedanntenerenamnns $19.95 


A PERSONAL GROWTH FOR 
YOU AND YOUR FAMILY 


SPEEDREAD+ - Double or triple your reading 
speed. Read with less effort and better compre- 
hension. Proven techniques. (APO164)............. $19.95 
MEMOREASE+ - Memorize anything quickly and 
easily. Learn speeches, songs. drama roles, etc. 
Improve your memory. (APO163) ............. cee $19.95 
EARTH VIEWS - An electronic globe/atlas and an 
exciting geography game. Useful, educational, fun. 
fo LS | a ee $19.95 
MAPWARE - Generate varied maps in 4 projections 
for school, business, HAM, etc. (APO134)......... $19.95 
SPACE BASE - Star atlas identifies objects, refer- 
ence base gives you detailed information. For all 
a, CE pacincassnecsxaentaaeetcinnantacncanctnenniaene $19.95 
ORBIT: A TRIP TO THE MOON - Pilot your craft 
from Earth orbit to Lunar landing. Learn space 
rt TP OIG) ces cxcnrcrncomamarnnamnonmns $15.95 
SARATOGA - American Revolution strategy game. 
Detailed, realistic, fun. Full-color playfield map. 
recone ite cantina cinmteamiads $15.95 


00 
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PHOTO GRAPHICS - Great digitized pictures (PD0017) 

ANTIC FORTH - Compact, fast programming language (PD0020) 
THE FIX XL - Run older programs on XL/XE computers (PD0026) 
CROCKFORD’S WHIMSY - Magical disk for all ages (PD0033) 
CUES EDPACK #1 - Educational programs (PD0044) 

CUES EDPACK #2 - More Educational programs (PD0045) 
ASTRONOMY & METEROLOGY Great for the hobbiest (PD0063) 
130XE HI-RES DESIGNER - GR.8 draw pgm for 130XE (PD0070) 
HEAVY METAL ART - Spectacular pictures, 100s of colors (PD0060) 
RAMBRANDT COLLECTION - The best RAMbrandt art (PD0073) 
STEVE DONG’S GALLERY - Incl. Challenger memorial (PD0074) 
VT100 TERMINAL EMULATOR - Access mainframes (PD0037) 
TEK 4010 TERM EMULATOR - For graphic mainframes (PD0083) 


MAQA 


Tech Tips 


BOOLEAN STICK 


By Brian Murphy 
t’s a fairly easy task to program your joystick for 
drawing on the screen while avoiding Error 141 
(cursor out of range). A simple program to handle 
such an exercise might look like this: 


10 GRAPHICS 7 +16 

20 COLOR 1 

100 S = STICK(0) 

110 IF S=7 THEN X=X+1 

120 IF S=11 THEN X=X-1 

130 IF S=13 THEN Y=Y+1 

140 IF S=14 THEN Y=Y-1 

150 IF S=5 THEN X=X+1:Y=Y++1 
160 IF S=6 THEN X=X+1:Y=Y-1 
170 IF S=9 THEN X=X-1:Y=Y+1 
180 IF S=10 THEN X=X-1:Y=Y-1 
190 IF X>159 THEN X= 159 

200 IF X<O THEN X=0 

210 IF Y>95 THEN Y=95 

220 IF Y<O THEN Y=0 

230 PLOT X,Y 

240 GOTO 100 


But there is a much better way to code this func- 
tion using Boolean Logic. You see, Atari BASIC 
assigns a value of one to any equation or inequal- 
ity that is true and zero to any that is false. It is im- 
portant to realize that you don’t need the conven- 
tion of an IE. . THEN statement in order to have an 
expression such as T=5 evaluated as true (one) or 
false (zero). For example: 


10 T=5 
20? T=5 


In this example the value five is assigned to T—so 
the expression T= 5 in line 20 is evaluated to be one. 
This mini-program will print a one. 

Armed with this background information we’re 
ready to rewrite the joystick function. Just replace 
lines 110 through 220 in the above program with 
the two following lines: 


110 X=X+((S=5)+(S=6)+(S = 7)) *(x<159)- 
((S = 9) + (S = 10) + (S = 11)) *(X>0) 

120 Y=Y+((S=5)+(S=9)+(S=13))*(Y<95)- 
((S = 6) + (S = 10) + (S = 14)) *(Y>0) 


The parentheses () in the procedure are included 
to ensure that everything is evaluated in the proper 
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order. Very often when using Boolean Logic you will 
need such parentheses. Also note that I used addi- 
tion (+) to represent Logical OR and multiplication 
(*) for Logical AND. This is possible only if there 
is mutual exclusion—only one of the possible con- 
ditions can occur at any instant of time. Since a 
joystick can only be pointed in one direction at a 
time, we are assured of mutual exclusion. 

Obviously this routine makes the program much 
shorter, requiring less memory. This new coding 
replaces twelve lines with just two. In many cases 
multiple IF. . THEN statements that require sepa- 
rate lines can be summed up in one line. 

A joystick routine is only one of many possible 
uses for Boolean Logic expressions. By using 
Boolean Logic throughout your routines you can 
save a great deal of RAM for that extra feature you 
just couldn’t fit in. 


AUTORUN SETUP 


By Robert Wallace 

ntic published a September 1988 Tech Tip called 
[\sirecons which creates an autorun file that will 

LOAD and RUN BASIC programs. But this great util- 
ity already exists and most Atari users already have it with- 
out knowing. On the DOS 2.5 master disk there is a 
SETUP.COM file which will create AUTORUN.SYS files for 
BASIC. 

The menus are easy to follow. Note that SETUPCOM 
will work on the disk in drive 1 unless you use option 
1 in the menu below: 

Choose an option: 

1. Change current drive number 
2. Change system configuration 
3. Set up AUTORUN for Boot 

The DOS 2.5 Master disk came with new Atari drives 
from the 1050 on. If you don’t have a copy, check with 
your local dealer or users group about the best way to 
get a copy. 


Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari’s 
powers, simple hardware modifications, or useful 
macros for popular software. 


ANTIC, THE ATARI RESOURCE 


Since 1981 


Lyco Computer 
Marketing & Consultants 


Air orders processed within 24 hours. 


Great Value 


Panasonic, 


Office Automation Cy 


1091i Model Il 


Speed and flexibility for your office 
or home. Panasonic combines 192 


cps draft with 38 cps NLQ for a 
wide variety of printing needs. 
Quality support through a 2-year 
warranty from Panasonic. 


$179°° 


If you are seeking world renowned 
printer performance for your home, 
look no farther than the 120D. Your 
data processing needs are handled 
quickly at a print speed of 120 cps 
(draft) or 25 cps (NLQ). The 120D 
features 9 pin dot matrix print 
quality, standard parallel centronics 
interface and a 4K text buffer. 


The easier 
the better! 


CITIZEN 


120-D 


Great Performance 
Great Price 


NX-1000 
RAINBOW 


The Star NX-1000 Rainbow adds \\ \ 
a whole new dimension to your \\ | 
work through multi-color printing. 
Star has designed 20 printing 
options into this printer. Add to this 
paper parking, Epson-IBM 
emulation, high resolution NLQ/ 
graphics for a printer with extra 
talent over the competition. 


@ Hayes At Command 
Option Set 

@ Auto/Manual 
Originate Answer 

@ Auto Dial With Pulse 
or Tone Select 

@ RS-232C Interface 
@ 2-Year Warranty 


OGOOGCOOCGOOSE 


TO ORDER, CALL TOLL-FREE: 1-800-233-8760 


(GGG 


GGOGOOGOOECOOOGOO©COGOOOOGOOGEOO©OOOOGOOO LOOOOOQOGIO’B 


JOGO OOOSSSGOGGSSSSGSGOGOSS 


New PA Wats: 1-800-233-8760 


Outside Continental US Call: 1-717-494-1030 
Hours: Monday through Friday, 9:00 a.m. to 9:00 p.m. 


Saturday, 10:00 a.m. to 6:00 p.m. 


For Customer Service, call 1-717-494-1670, 
9AM to 5PM, Mon. - Fri. 
Or write: Lyco Computer, Inc. 
P.O. Box 5088, Jersey Shore, PA 17740 


-800-233-8760 


Sé 595° 


PRINTER PAPER 


PRICE GUARANTEE SZ 
Since 1981, we have led the industry by continuing to offer the lowest national prices while ©) 1000 sheet laser ......... $16.95 
providing quality service. Many companies have come and gone trying to imitate our quality and ©) 1000 mailing labels ....... $8.95 
‘ service. If by some oversight we do not have the lowest prices advertised on the products you 6) 200 sheet OKI 20 .......... $8.95 
desire, then we would appreciate the opportunity to rectify this oversight. Transparent Labels ....... $4.95 


Banner Paper 45’ Roll. $10.95 


Don’t Miss Our Other Value 
Packed Pages In This Issue! 


Please Note: e full manufacturers’ warranties @ no sales tax outside 
PA @ prices show 4% cash discount; add 4% for credit cards e APO, FPO, 
international: add $5 plus 3% for priority @ 4-week clearance on personal checks 
@ we check for credit card theft @ sorry, compatibility not guaranteed @ return 
authorization required @ due to new product guarantee, return restrictions apply @ 
ou subject to change @ prepaid orders under $50 in Continental US, 
a .00 
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MENACE is a pure arcade game — a fast action packed journey ADDICTIVE ARCADE ACTION 


through six very different worlds where lightning fast reflexes and PSYCLAPSE — A NEW LABEL FROM PSYGNOSIS 


furious fire button action are your only hope of survival. 


Your mission orders are simple, you must destroy the planet é 


¢ 2150 Executive Drive 
Draconia. In theory possible, in practice. . . COMPUTER Addison Illinois 60101 
Toll Free: 1-800-422-4912 
The planet Draconia, an unnatural planet, has been formed over In Illinois: 1-800-331-SOFT 
many centuries by six of the most feared rulers that have ever 
existed. These rulers, exiled from their home galaxy, have ravaged 
and plundered space, using the worlds they have destroyed and the 


life forms they have created to build this planet of fear and death. 


Now an end must be put to their reign of terror. A large scale attack 
will prove too costly to our space fleets. Draconia has many orbiting 
defence systems, the sacrifice may be in thousands of lives. A single 
fighter craft, approaching undetected, may have achance to avenge 
those who have perished, by destroying Draconia. You have that 
chance .. : 


AMIGA/ATARI ST — $29.95 


